From 9ff8491cee98ab28026164601a3801fff9d37f1e Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Thu, 22 Jan 2009 22:09:21 +0000
Subject: [PATCH]  * tab2space used zeroes instead of spaces. (mantis 13024)

git-svn-id: trunk@12583 -
---
 rtl/objpas/strutils.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/strutils.pp b/rtl/objpas/strutils.pp
index e9285f6536..3c291eab99 100644
--- a/rtl/objpas/strutils.pp
+++ b/rtl/objpas/strutils.pp
@@ -976,7 +976,7 @@ begin
       begin
       Result[I]:=' ';
       If (Numb>1) then
-        Insert(StringOfChar('0',Numb-1),Result,I);
+        Insert(StringOfChar(' ',Numb-1),Result,I);
       Inc(I,Numb);
       end;
 end;