Index: src/natools-s_expressions-printers-pretty.adb
==================================================================
--- src/natools-s_expressions-printers-pretty.adb
+++ src/natools-s_expressions-printers-pretty.adb
@@ -873,21 +873,20 @@
               := Single_Line_Quoted_Width (Data, Output.Param.Char_Encoding);
          begin
             if Fit_In_Line (Output, Blank_Width + Width) then
                if Output.Need_Blank then
                   Output.Stream.Write ((0 => Encodings.Space));
+                  Output.Cursor := Output.Cursor + 1;
                end if;
                Write_Quoted (Output, Data, True);
-               Output.Cursor := Output.Cursor + Blank_Width + Width;
                Output.Need_Blank := False;
                return;
             end if;
 
             if Indent_Width (Output) + Width <= Output.Param.Width then
                Newline (Output);
                Write_Quoted (Output, Data, True);
-               Output.Cursor := Output.Cursor + Width;
                Output.Need_Blank := False;
                return;
             end if;
          end;
       end if;