--- a/String.st	Sun Jan 09 22:25:58 1994 +0100
+++ b/String.st	Wed Jan 12 20:11:58 1994 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/String.st,v 1.8 1994-01-09 21:25:13 claus Exp $
+$Header: /cvs/stx/stx/libbasic/String.st,v 1.9 1994-01-12 19:11:34 claus Exp $
 '!
 
 %{
@@ -1913,7 +1913,9 @@
 withoutSpaces
     "return a copy of myself without leading and trailing spaces"
 
-    |startIndex endIndex blank|
+    |startIndex "{ Class: SmallInteger }"
+     endIndex   "{ Class: SmallInteger }" 
+     blank|
 
     startIndex := 1.
     endIndex := self size.
@@ -1936,7 +1938,8 @@
 withoutSeparators
     "return a copy of myself without leading and trailing whitespace"
 
-    |startIndex endIndex|
+    |startIndex "{ Class: SmallInteger }"
+     endIndex   "{ Class: SmallInteger }" |
 
     startIndex := 1.
     endIndex := self size.