--- a/Class.st	Fri Apr 30 11:52:43 2010 +0200
+++ b/Class.st	Fri Apr 30 11:56:51 2010 +0200
@@ -12,34 +12,34 @@
 "{ Package: 'stx:libbasic' }"
 
 ClassDescription subclass:#Class
-	instanceVariableNames:'name category classvars comment subclasses classFilename package
-		revision environment signature attributes'
-	classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE
-		DefaultCategoryForDolphin'
-	poolDictionaries:''
-	category:'Kernel-Classes'
+        instanceVariableNames:'name category classvars comment subclasses classFilename package
+                revision environment signature attributes'
+        classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE
+                DefaultCategoryForDolphin'
+        poolDictionaries:''
+        category:'Kernel-Classes'
 !
 
 Object subclass:#ClassAttributes
-	instanceVariableNames:'primitiveDefinitions primitiveVariables primitiveFunctions
-		sharedPools traitComposition localSelectors'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:Class
+        instanceVariableNames:'primitiveDefinitions primitiveVariables primitiveFunctions
+                sharedPools traitComposition localSelectors'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:Class
 !
 
 Object subclass:#SimulatedClassPool
-	instanceVariableNames:'class'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:Class
+        instanceVariableNames:'class'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:Class
 !
 
 Association subclass:#SimulatedVariableBinding
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:Class::SimulatedClassPool
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:Class::SimulatedClassPool
 !
 
 !Class class methodsFor:'documentation'!
@@ -1599,13 +1599,16 @@
 
     "/ use cached information (avoid class hierarchy search), if possible
     subclasses isNil ifTrue:[
-        self updateAllCachedSubclasses
+        self updateAllCachedSubclasses.
+        "subclasses may still be nil - obsolete classes may not be updated"
+        ^ subclasses ?#().
     ].
-    ^ subclasses ? #()
+    ^ subclasses.
 
     "
      Class flushSubclassInfo.
-     Collection subclasses
+     Class subclasses.
+     SmallInteger subclasses
     "
 
     "Modified: / 30-04-2010 / 11:51:33 / cg"
@@ -5066,9 +5069,9 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.572 2010-04-30 09:51:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.573 2010-04-30 09:56:51 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.572 2010-04-30 09:51:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.573 2010-04-30 09:56:51 stefan Exp $'
 ! !