--- a/Class.st	Fri Dec 20 21:14:08 1996 +0100
+++ b/Class.st	Fri Dec 20 21:15:29 1996 +0100
@@ -922,10 +922,12 @@
     classes := IdentitySet new.
     myName := self name.
     Smalltalk keysAndValuesDo:[:aName :aValue|
-        (aName startsWith:(myName , '::')) ifTrue:[
-            "/ care for private-privateClasses
-            (aName indexOf:$: startingAt:myName size + 3) == 0 ifTrue:[
-                classes add:aValue.
+        (aName startsWith:myName) ifTrue:[
+            (aName startsWith:(myName , '::')) ifTrue:[
+                "/ care for private-privateClasses
+                (aName indexOf:$: startingAt:myName size + 3) == 0 ifTrue:[
+                    classes add:aValue.
+                ]
             ]
         ]
     ].
@@ -938,7 +940,7 @@
      Object privateClasses
     "
 
-    "Modified: 15.10.1996 / 11:08:01 / cg"
+    "Modified: 20.12.1996 / 19:36:42 / cg"
 !
 
 privateClassesAt:aClassNameSymbol
@@ -4519,6 +4521,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.222 1996-12-20 00:14:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.223 1996-12-20 20:15:29 cg Exp $'
 ! !
 Class initialize!