--- a/CharacterArray.st	Wed Feb 21 13:37:49 1996 +0100
+++ b/CharacterArray.st	Wed Feb 21 13:46:33 1996 +0100
@@ -151,7 +151,7 @@
      sSize  "{ Class: SmallInteger }"
      index  "{ Class: SmallInteger }"
      quickCheck matchLast
-     matchSet checkChar included|
+     checkChar included|
 
     mStart := matchStart.
     mStop := matchStop.
@@ -755,7 +755,7 @@
      (ignoring case) in the receiver and the argument, aString."
 
     |n "{ Class: SmallInteger }"
-     otherSize c1 c2 cnt|
+     c1 c2 cnt|
 
     n := self size.
     n := n min:(aString size).
@@ -1264,7 +1264,7 @@
      the original receiver is returned unchanged.
      (sounds complicated ? -> see examples below)."
 
-    |len s idx n|
+    |s idx n|
 
     idx := self indexOf:decimalCharacter.
     idx == 0 ifTrue:[
@@ -1776,7 +1776,7 @@
      srcIdx  "{ SmallInteger }"
      dstIdx  "{ SmallInteger }"
      val     "{ SmallInteger }"
-     newString next start| 
+     newString next| 
 
     "
      first, count the number of escapes, to allow preallocation
@@ -2486,5 +2486,5 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.49 1996-01-30 17:14:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.50 1996-02-21 12:46:33 cg Exp $'
 ! !