* Fixed bug #12385

git-svn-id: trunk@12087 -

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);