Index: src/natools-s_expressions-printers-pretty.adb
==================================================================
--- src/natools-s_expressions-printers-pretty.adb
+++ src/natools-s_expressions-printers-pretty.adb
@@ -355,10 +355,11 @@
                      when LF | CR =>
                         Output_Delta := 1;
                      when CR_LF | LF_CR =>
                         Output_Delta := 2;
                         Input_Delta := 2;
+                        Width_Adjust := Width_Adjust - 1;
                   end case;
                end if;
             when 0 .. 7 | 14 .. 31 =>
                Output_Delta := 4;
             when 16#80# .. 16#FF# =>
@@ -648,10 +649,11 @@
                        or Output.Param.Newline = LF_CR
                      then
                         Input_Delta := 2;
                         Result (O + 1) := Data (I + 1);
                         Output_Delta := 2;
+                        Width_Adjust := Width_Adjust - 1;
                      end if;
                   end if;
                when 11 =>
                   Result (O) := Encodings.Escape;
                   Result (O + 1) := Character'Pos ('v');
@@ -675,10 +677,11 @@
                        or Output.Param.Newline = LF_CR
                      then
                         Input_Delta := 2;
                         Result (O + 1) := Data (I + 1);
                         Output_Delta := 2;
+                        Width_Adjust := Width_Adjust - 1;
                      end if;
                   end if;
                when Encodings.Quoted_Atom_End | Encodings.Escape =>
                   Result (O) := Encodings.Escape;
                   Result (O + 1) := Data (I);