--- a/Smalltalk.st	Tue Sep 22 13:23:54 2009 +0200
+++ b/Smalltalk.st	Tue Sep 22 13:28:56 2009 +0200
@@ -1849,10 +1849,22 @@
 !
 
 allMethodsDo:aBlock
+    "enumerate all methods in the Smalltalk namespace's classes"
+
     Smalltalk allClassesDo:[:eachClass |
-	eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
-	    aBlock value:mthd
-	]
+        eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
+            aBlock value:mthd
+        ]
+    ].
+!
+
+allMethodsWithSelectorDo:aBlock
+    "enumerate all methods in the Smalltalk namespace's classes"
+
+    Smalltalk allClassesDo:[:eachClass |
+        eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
+            aBlock value:mthd value:sel
+        ]
     ].
 !
 
@@ -7189,5 +7201,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.884 2009-09-18 15:49:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.885 2009-09-22 11:28:56 cg Exp $'
 ! !