* removed debug statement

git-svn-id: trunk@12088 -

rtl/objpas/sysutils/sysstr.inc

@@ -2033,7 +2033,6 @@ Var
       I:=DecimalPoint-Placehold[2];
       If (Value<0) and (I<DecimalPoint) and (Digits[1]<>'-') then
         begin
-        Writeln('Inserting - at ',I);
         Insert('-',Digits,I);
         Inc(DecimalPoint);
         Inc(I);