From 54728b3d0ecb893cc139b331baf0ae91cc992f98 Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Tue, 28 Sep 1999 16:20:02 +0000
Subject: [PATCH] 2 small fixes that where already in 0.5.2

---
 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.