--- a/BrowserView.st	Sat Dec 08 15:27:31 2001 +0100
+++ b/BrowserView.st	Sat Dec 08 15:47:29 2001 +0100
@@ -11797,7 +11797,7 @@
     |items m|
 
     items := #( 
-                ('new namespace' nameSpaceNewNameSpace)
+                ('New NameSpace' nameSpaceNewNameSpace)
               ).
 
 "/    showAllNamespaces ifTrue:[
@@ -11814,13 +11814,13 @@
         currentNamespace allClasses isEmpty ifTrue:[
             items := items , #(
                                 ('-') 
-                                ('remove' nameSpaceRemove)).
+                                ('Remove' nameSpaceRemove)).
         ] ifFalse:[
             items := items , #(
                                 ('-') 
-                                ('remove all classes...' nameSpaceRemoveAllClasses)
+                                ('Remove all Classes...' nameSpaceRemoveAllClasses)
                                 ('-') 
-                                ('checkin each...'       nameSpaceCheckInEach)
+                                ('Checkin each...'       nameSpaceCheckInEach)
                               ).
         ]
     ].
@@ -14925,6 +14925,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.700 2001-12-08 00:45:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.701 2001-12-08 14:47:29 cg Exp $'
 ! !
 BrowserView initialize!