From 0d5356479731ad1c24efa940d5a4ce58a4424c24 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 14 Nov 2008 13:04:51 +0000
Subject: [PATCH] * Fixed bug #12385

git-svn-id: trunk@12087 -
---
 rtl/objpas/sysutils/sysstr.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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