From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 20 Feb 2017 01:37:32 +0000 (-0800)
Subject: Fix case issue.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~54
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d8c3558e56d90d432f98b8443b2a8c5919e56e69;p=mit-scheme.git

Fix case issue.
---

diff --git a/src/edwin/kilcom.scm b/src/edwin/kilcom.scm
index a4790864d..89fc45c01 100644
--- a/src/edwin/kilcom.scm
+++ b/src/edwin/kilcom.scm
@@ -140,7 +140,7 @@ appropriate number of spaces and then one space is deleted."
     (define (perform-replacement)
       (let ((n (- (mark-column m2) (mark-column m1))))
 	(delete-string m1 m2)
-	(insert-string (make-string n #\Space) m2)))
+	(insert-string (make-string n #\space) m2)))
     (if at-point?
 	(let ((start (mark-right-inserting m1)))
 	  (perform-replacement)