--- a/Smalltalk.st	Tue Mar 23 12:10:24 1999 +0100
+++ b/Smalltalk.st	Tue Mar 23 13:36:54 1999 +0100
@@ -1330,20 +1330,20 @@
 
     "/ you may wonder, what this while is for, here ...
     "/ the reason is that if we modify the class hierarchy in
-    "/ anothe view (background fileIn), while building up the
+    "/ another view (background fileIn), while building up the
     "/ cachedClasses set, this may be flushed (invalidated) by the
     "/ other process in the meanwhile.
     "/ If that happens, we restart the set-building here
     "/
     [(classes := CachedClasses) isNil] whileTrue:[
-	CachedClasses := classes := IdentitySet new:800. 
-	self do:[:anObject |
-	    anObject notNil ifTrue:[
-		anObject isBehavior ifTrue:[
-		    classes add:anObject
-		]
-	    ]
-	]
+        CachedClasses := classes := IdentitySet new:800. 
+        self do:[:anObject |
+            anObject notNil ifTrue:[
+                anObject isBehavior ifTrue:[
+                    classes add:anObject
+                ]
+            ]
+        ]
     ].
     ^ classes
 
@@ -1355,7 +1355,7 @@
      Smalltalk allClasses asSortedCollection:[:a :b | a name < b name]
     "
 
-    "Modified: 13.12.1995 / 14:52:50 / cg"
+    "Modified: / 23.3.1999 / 13:44:09 / cg"
 !
 
 cellAt:aName
@@ -4210,5 +4210,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.309 1999-03-14 13:33:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.310 1999-03-23 12:36:54 cg Exp $'
 ! !