--- a/Class.st	Sat Oct 26 18:34:05 1996 +0200
+++ b/Class.st	Sun Oct 27 12:37:00 1996 +0100
@@ -762,14 +762,6 @@
     "Modified: 14.10.1996 / 17:23:36 / cg"
 !
 
-privateClassesDo:aBlock
-    "evaluate aBlock on all of my private classes (if any)"
-
-    self privateClasses do:aBlock
-
-    "Created: 26.10.1996 / 12:28:57 / cg"
-!
-
 removeClassVarName:aString
     "remove a class variable if not already there.
      Also writes a change record and notifies dependents.
@@ -1829,6 +1821,20 @@
     "Modified: 12.6.1996 / 11:52:35 / stefan"
 ! !
 
+!Class methodsFor:'enumerating'!
+
+privateClassesDo:aBlock
+    "evaluate aBlock on all of my private classes (if any)"
+
+    |classes|
+
+    (classes := self privateClasses) notNil ifTrue:[
+        classes do:aBlock
+    ].
+
+    "Created: 26.10.1996 / 12:28:57 / cg"
+! !
+
 !Class methodsFor:'fileIn interface'!
 
 ignoredMethodsFor:aCategory
@@ -4119,6 +4125,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.197 1996-10-26 13:22:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.198 1996-10-27 11:37:00 cg Exp $'
 ! !
 Class initialize!