--- a/Class.st	Wed Aug 23 00:15:58 2000 +0200
+++ b/Class.st	Wed Aug 23 00:16:33 2000 +0200
@@ -647,7 +647,7 @@
     |owner|
 
     (owner := self owningClass) notNil ifTrue:[^ owner package].
-    ^ package ? ' '
+    ^ package ? ''
 
     "
      Object package  
@@ -4477,5 +4477,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.376 2000-08-19 18:44:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.377 2000-08-22 22:16:13 cg Exp $'
 ! !

--- 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!

--- a/Method.st	Wed Aug 23 00:15:58 2000 +0200
+++ b/Method.st	Wed Aug 23 00:16:33 2000 +0200
@@ -433,9 +433,9 @@
 
     package notNil ifTrue:[ ^ package ].
     (cls := self mclass) isNil ifTrue:[
-        ^ ' '
+        ^ ''
     ].
-    ^ cls package ? ' '
+    ^ cls package ? ''
 
     "Modified: / 29.12.1998 / 01:16:05 / cg"
 !
@@ -2724,6 +2724,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.202 2000-08-21 21:54:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.203 2000-08-22 22:16:33 cg Exp $'
 ! !
 Method initialize!