Fix case issue.

diff --git a/src/edwin/kilcom.scm b/src/edwin/kilcom.scm
index a4790864da6ad0c4035a89937a0113de4b038182..89fc45c01abf75af99f4a5ac2c4fb43c91d5f461 100644 (file)
--- 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)