From 1bb7a2e494345f45b2639d564d0a85cafc1ea161 Mon Sep 17 00:00:00 2001
From: shivers <shivers>
Date: Sun, 11 Jul 1999 20:18:44 +0000
Subject: [PATCH] Bugfix. How did this go so long undetected? -Olin

---
 scsh/stringcoll.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scsh/stringcoll.scm b/scsh/stringcoll.scm
index d1d9184..e2e2d92 100644
--- a/scsh/stringcoll.scm
+++ b/scsh/stringcoll.scm
@@ -132,14 +132,14 @@
     (cond (chunk
 	   (string-set! chunk (- 128 chunk-left) c)
 	   (cond ((> chunk-left 1)
-		  (set-string-collector:chunk-left (- chunk-left 1)))
+		  (set-string-collector:chunk-left sc (- chunk-left 1)))
 		 (else
 		  (set-string-collector:chunks sc
 		       (cons chunk (string-collector:chunks sc)))
 		  (set-string-collector:chunk sc #f))))
 	  (else
 	   (let ((new-chunk (make-string 128 c)))
-	     (set-string-collector:chunk-left 127)
+	     (set-string-collector:chunk-left sc 127)
 	     (set-string-collector:chunk sc new-chunk)))))
 
   ;; We don't actually do anything with this, but we keep it updated anyway.