Index: src/natools-s_expressions-printers-pretty.adb
==================================================================
--- src/natools-s_expressions-printers-pretty.adb
+++ src/natools-s_expressions-printers-pretty.adb
@@ -100,11 +100,11 @@
      (Output : in Printer;
       Width  : in Screen_Offset)
       return Boolean is
    begin
       return Output.Param.Width = 0
-        or Output.Param.Width >= Output.Cursor + Width;
+        or Output.Param.Width >= Output.Cursor - 1 + Width;
    end Fit_In_Line;
 
 
    function Indent_Width (Output : in Printer) return Screen_Offset is
    begin