--- a/Class.st	Mon Aug 02 17:03:35 1999 +0200
+++ b/Class.st	Mon Aug 02 18:05:28 1999 +0200
@@ -803,7 +803,7 @@
 privateClassesOrAll:allOfThem
     "{ Pragma: +optSpace }"
 
-    "return a collection of my firect private classes (if any)
+    "return a collection of my direct private classes (if any)
      or direct plus indirect private classes (if allOfThem).
      An empty collection if there are none.
      The classes are in any order."
@@ -819,19 +819,21 @@
         |nm owner|
 
         aClass isBehavior ifTrue:[
-            (owner := aClass owningClass) notNil ifTrue:[
-                nm := aClass name.
-                (nm startsWith:myNamePrefix) ifTrue:[
-                    "/ ignore private-privateClasses if not allOfThem
-                    (allOfThem
-                    or:[(nm indexOf:$: startingAt:myNamePrefixLen + 1) == 0]) ifTrue:[
-                        "/ care for obsolete privateClasses
-                        (Smalltalk at:nm) == aClass ifFalse:[
-                            Transcript showCR:'skipped leftover (obsolete) private class: ' , nm.
-                        ] ifTrue:[
-                            classes add:aClass.
-                        ].
-                    ]
+            aClass isMeta ifFalse:[
+"/                (owner := aClass owningClass) notNil ifTrue:[
+                    nm := aClass name.
+                    (nm startsWith:myNamePrefix) ifTrue:[
+                        "/ ignore private-privateClasses if not allOfThem
+                        (allOfThem
+                        or:[(nm indexOf:$: startingAt:myNamePrefixLen + 1) == 0]) ifTrue:[
+                            "/ care for obsolete privateClasses
+                            (Smalltalk at:nm) == aClass ifFalse:[
+                                Transcript showCR:'skipped leftover (obsolete) private class: ' , nm.
+                            ] ifTrue:[
+                                classes add:aClass.
+                            ].
+                        ]
+"/                    ]
                 ]
             ]
         ]
@@ -3929,5 +3931,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.341 1999-07-16 18:50:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.342 1999-08-02 16:05:28 cg Exp $'
 ! !