--- a/ProjectView.st	Wed Apr 06 14:20:43 2016 +0200
+++ b/ProjectView.st	Thu Apr 07 15:03:21 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 StandardSystemView subclass:#ProjectView
 	instanceVariableNames:'myProject toggle'
 	classVariableNames:'ActiveProjectView'
@@ -431,8 +433,8 @@
     self topView withWaitCursorDo:[
         |box allNameSpaces|
 
-        allNameSpaces := (NameSpace allNamespaces 
-                            select:[:ns | ns isTopLevelNamespace])
+        allNameSpaces := (NameSpace allNameSpaces 
+                            select:[:ns | ns isTopLevelNameSpace])
                                 collect:[:ns | ns name].
 
         box := ListSelectionBox title:(resources string:'default nameSpace:') withCRs.
@@ -769,5 +771,6 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.52 2007-01-23 18:19:38 stefan Exp $'
+    ^ '$Header$'
 ! !
+