--- a/extensions.st	Fri Feb 20 22:51:46 2015 +0100
+++ b/extensions.st	Fri Feb 20 22:53:20 2015 +0100
@@ -1313,14 +1313,17 @@
 !Method methodsFor:'printing & storing'!
 
 selectorPrintStringInBrowserFor:selector class:aClass
-    selector isNameSpaceSelector ifFalse:[^ selector].
-
-    "/ why hide the fact, that it is a nameSpace selector???
-    "/ ^ selector selectorWithoutNameSpace.
-
-    "/ cg: do not use sel {ns} - because it looks like a category in the list then.
-    ^ selector selectorWithoutNameSpace , ' (in ',selector nameSpacePart,'::)' 
-    "/ ^ ' (',selector nameSpacePart,'::) ',selector selectorWithoutNameSpace  
+    |selPart idx|
+
+    (selector isSymbol and:[selector isNameSpaceSelector]) ifFalse:[^ selector].
+
+    idx := selector indexOf:$: startingAt:3.
+    "
+    nsPart := selector copyFrom:2 to:idx-1.
+    ns := Smalltalk at:nsPart asSymbol.
+    "
+    selPart := selector copyFrom:idx+2.
+    ^ selPart ", ' {',nsPart,'}'."
 
     "Modified: / 20-07-2010 / 10:33:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
@@ -2508,7 +2511,7 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.145 2015-02-19 12:11:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.146 2015-02-20 21:53:20 cg Exp $'
 ! !
 
 !stx_libtool class methodsFor:'documentation'!