--- a/ProjectView.st	Mon Jul 26 14:10:36 1999 +0200
+++ b/ProjectView.st	Mon Jul 26 16:03:23 1999 +0200
@@ -428,25 +428,27 @@
      classes do not conflict with existing ones ..."
 
     self topView withWaitCursorDo:[
-	|box allNameSpaces|
-
-	allNameSpaces := Namespace allNamespaces collect:[:ns | ns name].
+        |box allNameSpaces|
 
-	box := ListSelectionBox title:(resources string:'default nameSpace:') withCRs.
-	box list:(allNameSpaces asOrderedCollection sort).
-	box action:[:nsName |
-	    |ns|
+        allNameSpaces := (Namespace allNamespaces 
+                            select:[:ns | ns isTopLevelNamespace])
+                                collect:[:ns | ns name].
+
+        box := ListSelectionBox title:(resources string:'default nameSpace:') withCRs.
+        box list:(allNameSpaces asOrderedCollection sort).
+        box action:[:nsName |
+            |ns|
 
-	    "/ only create topLevel nameSpaces here
+            "/ only create topLevel nameSpaces here
 
-	    Class nameSpaceQuerySignal 
-	    answer:Smalltalk
-	    do:[
-		ns := Namespace name:nsName.
-	    ].    
-	    myProject defaultNameSpace:ns
-	].
-	box showAtPointer
+            Class nameSpaceQuerySignal 
+            answer:Smalltalk
+            do:[
+                ns := Namespace name:nsName.
+            ].    
+            myProject defaultNameSpace:ns
+        ].
+        box showAtPointer
     ]
 
     "Created: 9.12.1995 / 16:50:45 / cg"
@@ -766,5 +768,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.46 1999-04-23 12:47:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.47 1999-07-26 14:03:23 cg Exp $'
 ! !