diff --git a/rtl/objpas/sysutils/sysstr.inc b/rtl/objpas/sysutils/sysstr.inc
index 37d64fbdc6..22d2b24932 100644
--- a/rtl/objpas/sysutils/sysstr.inc
+++ b/rtl/objpas/sysutils/sysstr.inc
@@ -2031,8 +2031,9 @@ Var
           Digits[DecimalPoint] := ' ';
       { Convert spaces left from obligatory decimal point to zeroes. }
       I:=DecimalPoint-Placehold[2];
-      If (Value<0) and (I<DecimalPoint) then
+      If (Value<0) and (I<DecimalPoint) and (Digits[1]<>'-') then
         begin
+        Writeln('Inserting - at ',I);
         Insert('-',Digits,I);
         Inc(DecimalPoint);
         Inc(I);