Index: tests/natools-s_expressions-printers-pretty-tests.adb
==================================================================
--- tests/natools-s_expressions-printers-pretty-tests.adb
+++ tests/natools-s_expressions-printers-pretty-tests.adb
@@ -769,10 +769,37 @@
          P.Close_List;
          Fill (P, 3);
          P.Close_List;
          P.Close_List;
          Fill (P, 4);
+         P.Close_List;
+         P.Close_List;
+
+         Output.Check_Stream (Test);
+      end;
+
+      declare
+         Output : aliased Test_Tools.Memory_Stream;
+         P : Stream_Printer (Output'Access);
+      begin
+         Output.Set_Expected (To_Atom                  --  1234-6789-1234-6789-
+            ("(first-level x x x x" & NL               --  (first-level x x x x
+           & Tab & "x x x x x x x x" & NL              --  >----x x x x x x x x
+           & Tab & "x x (second x x" & NL              --  >----x x (second x x
+           & Tab & Tab & "x x x x x" & NL              --  >---->----x x x x x
+           & Tab & Tab & "x x))"));                    --  >---->----x x))
+
+         P.Set_Parameters (Param);
+         P.Set_Indent (Tabs);
+         P.Set_Indentation (1);
+
+         P.Open_List;
+         P.Append_Atom (To_Atom ("first-level"));
+         Fill (P, 14);
+         P.Open_List;
+         P.Append_Atom (To_Atom ("second"));
+         Fill (P, 9);
          P.Close_List;
          P.Close_List;
 
          Output.Check_Stream (Test);
       end;