From d8c3558e56d90d432f98b8443b2a8c5919e56e69 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 19 Feb 2017 17:37:32 -0800
Subject: [PATCH] Fix case issue.

---
 src/edwin/kilcom.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.25.1