--- a/Metaclass.st	Wed Aug 23 00:15:58 2000 +0200
+++ b/Metaclass.st	Wed Aug 23 00:16:33 2000 +0200
@@ -1553,6 +1553,13 @@
     "Modified: 1.4.1997 / 15:44:50 / stefan"
 ! !
 
+!Metaclass methodsFor:'enumerating'!
+
+allSelectorsAndMethodsDo:aTwoArgBlock
+    myClass methodDictionary keysAndValuesDo:aTwoArgBlock.
+    methodDictionary keysAndValuesDo:aTwoArgBlock.
+! !
+
 !Metaclass methodsFor:'fileOut'!
 
 fileOutDefinitionOn:aStream
@@ -2101,6 +2108,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.167 2000-08-11 17:40:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.168 2000-08-22 22:16:23 cg Exp $'
 ! !
 Metaclass initialize!