--- a/Tools__NewSystemBrowser.st	Mon Jul 23 12:43:16 2012 +0200
+++ b/Tools__NewSystemBrowser.st	Mon Jul 23 12:52:36 2012 +0200
@@ -40285,7 +40285,11 @@
                         ns = 'Smalltalk' 
                             ifTrue:[ ns := '' ]
                             ifFalse:[ns := ' (in ',ns,')'].
-                        cls nameWithoutNameSpacePrefix,ns
+                        cls isNameSpace ifTrue:[
+                            cls nameWithoutNameSpacePrefix,ns,' (Namespace)'
+                        ] ifFalse:[
+                            cls nameWithoutNameSpacePrefix,ns
+                        ]
                     ]) sortWith:allClasses; yourself.
     allFullNames := (allClasses collect:[:cls | cls name]) sortWith:allClasses; yourself.
 
@@ -40330,8 +40334,9 @@
                     ]
                 ]
             ].
-            box listView list:list.
-            box listView scrollToLine:((list findFirst:[:line | (line ? '') startsWith:lcName]) max:1)
+            box listView 
+                list:list;
+                scrollToLine:((list findFirst:[:line | (line ? '') startsWith:lcName]) max:1)
         ].
 
     classNameHolder := '' asValue.
@@ -40344,11 +40349,8 @@
     box action:[:aString | className := aString].
 
     box panelView 
-        addSubView:(showingWhatLabel := (Label label:(resources string:'Recently visited:')) adjust:#left) 
-        before:nil.
-    box panelView 
-        addSubView:(check := CheckBox label:'Show Full Name (do not strip off Namespace)' model:showFullNameHolder) 
-        before:nil.
+        addSubView:(showingWhatLabel := (Label label:(resources string:'Recently visited:')) adjust:#left) before:nil;
+        addSubView:(check := CheckBox label:'Show Full Name (do not strip off Namespace)' model:showFullNameHolder) before:nil.
     showFullNameHolder onChangeEvaluate:updateList.
     box enterField origin:(0 @ check corner y).
     box listView origin:(0 @ check corner y).
@@ -40374,7 +40376,7 @@
     ].
     ^ className
 
-    "Modified: / 23-03-2012 / 11:55:33 / cg"
+    "Modified: / 23-07-2012 / 11:00:22 / cg"
 !
 
 askForClassToSearch:doWhatByDefault single:singleClass msgTail:msgTail thenDo:aBlock
@@ -57045,11 +57047,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1756 2012-07-21 17:18:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1757 2012-07-23 10:52:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1756 2012-07-21 17:18:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1757 2012-07-23 10:52:36 cg Exp $'
 !
 
 version_SVN