From 8e29b77aaf5621fbd9f02f49f11f354f071d162e Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 28 Mar 1999 16:44:54 +0000
Subject: [PATCH] ...

original commit: 6d4754e937311486aef7431b54bb6df74368493e
---
 collects/framework/scheme.ss | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/collects/framework/scheme.ss b/collects/framework/scheme.ss
index 7451eb08..c0923324 100644
--- a/collects/framework/scheme.ss
+++ b/collects/framework/scheme.ss
@@ -396,10 +396,7 @@
 		       (unless (= amt (car curr-offset))
 			 (delete pos-start (cdr curr-offset))
 			 (insert
-			  (string-append
-			   (make-string (quotient amt tab-size) #\tab)
-			   (make-string (remainder amt tab-size)
-					#\space))
+			  (make-string amt #\space)
 			  pos-start))))]
 		  [id-walker
 		   (lambda (string)