--- a/Class.st	Sat Oct 26 15:21:31 1996 +0200
+++ b/Class.st	Sat Oct 26 15:22:19 1996 +0200
@@ -762,6 +762,14 @@
     "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.
@@ -4111,6 +4119,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.196 1996-10-23 17:24:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.197 1996-10-26 13:22:19 cg Exp $'
 ! !
 Class initialize!