--- a/NameSpace.st	Mon Mar 24 11:13:02 1997 +0100
+++ b/NameSpace.st	Mon Mar 24 11:18:28 1997 +0100
@@ -255,11 +255,14 @@
         |nm owner|
 
         aClass isBehavior ifTrue:[
+	    aClass nameSpace == self ifTrue:[
+		aBlock value:aClass
+	    ].
 
-            nm := aClass name.
-            (nm startsWith:myNamePrefix) ifTrue:[
-                aBlock value:aClass
-            ]
+"/            nm := aClass name.
+"/            (nm startsWith:myNamePrefix) ifTrue:[
+"/                aBlock value:aClass
+"/            ]
         ]
     ].
 ! !
@@ -327,5 +330,5 @@
 !Namespace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.21 1997-03-24 10:08:52 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.22 1997-03-24 10:18:28 cg Exp $'
 ! !