Index: tests/natools-s_expressions-parsers-tests.adb
==================================================================
--- tests/natools-s_expressions-parsers-tests.adb
+++ tests/natools-s_expressions-parsers-tests.adb
@@ -93,10 +93,20 @@
            & "16:Base-64 encoding"));
    begin
       Test (Report);
    end Atom_Encodings;
 
+
+   procedure Base64_Subexpression (Report : in out NT.Reporter'Class) is
+      procedure Test is new Blackbox_Test
+        (Name => "Base-64 subexpression",
+         Source => To_Atom ("head({KDc6c3VibGlzdCk1OnRva2Vu})""tail"""),
+         Expected => To_Atom ("4:head((7:sublist)5:token)4:tail"));
+   begin
+      Test (Report);
+   end Base64_Subexpression;
+
 
    procedure Canonical_Encoding (Report : in out NT.Reporter'Class) is
       Sample_Image : constant String
         := "3:The(5:quick((5:brown3:fox)5:jumps))9:over3:the()4:lazy0:3:dog";
 
@@ -106,20 +116,10 @@
          Expected => To_Atom (Sample_Image));
    begin
       Test (Report);
    end Canonical_Encoding;
 
-
-   procedure Base64_Subexpression (Report : in out NT.Reporter'Class) is
-      procedure Test is new Blackbox_Test
-        (Name => "Base-64 subexpression",
-         Source => To_Atom ("head({KDc6c3VibGlzdCk1OnRva2Vu})""tail"""),
-         Expected => To_Atom ("4:head((7:sublist)5:token)4:tail"));
-   begin
-      Test (Report);
-   end Base64_Subexpression;
-
 
    procedure Lockable_Interface (Report : in out NT.Reporter'Class) is
       Test : NT.Test := Report.Item ("Lockable.Descriptor interface");
    begin
       declare