# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 859198708 -3600
# Node ID 38ca7fd49ab4ba9cacd1ed84e410593bced6d5b9
# Parent  ba34c6aac597c4d79224f1c5fd6a0a3a6b54303a
*** empty log message ***

diff -r ba34c6aac597 -r 38ca7fd49ab4 NameSpace.st
--- 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 $'
 ! !
diff -r ba34c6aac597 -r 38ca7fd49ab4 Namespace.st
--- 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/Attic/Namespace.st,v 1.21 1997-03-24 10:08:52 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Namespace.st,v 1.22 1997-03-24 10:18:28 cg Exp $'
 ! !