--- a/BrowserView.st	Thu May 07 19:38:34 1998 +0200
+++ b/BrowserView.st	Tue May 12 16:53:30 1998 +0200
@@ -1716,7 +1716,7 @@
         "stupid - search for class name in (indented) list"
         list := classListView list.
         list notNil ifTrue:[
-            classIndex := list findFirst:[:elem | elem endsWith:oldName].
+            classIndex := list findFirst:[:elem | elem withoutSpaces = oldName asString].
         ] ifFalse:[
             classIndex := 0
         ].
@@ -2009,9 +2009,16 @@
 loadFromMessage: aMessage
     "switch to the class and selector by evaluating aMessage"
 
-    |selector|
+    |selector nameSpace|
 
     self switchToClassNamed: (aMessage upTo: $ ).
+
+    actualClass nameSpace ~~ Smalltalk 
+        ifTrue:  [nameSpace := actualClass nameSpace name]
+        ifFalse: [nameSpace := '* all *'].
+
+    namespaceList model value:nameSpace.    
+
     self instanceProtocol:   (aMessage includesString: ' class ') not.
 
     (actualClass implements: (selector := (aMessage copy reverse upTo: $ ) reverse asSymbol))
@@ -11634,6 +11641,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.405 1998-04-28 15:41:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.406 1998-05-12 14:53:30 tz Exp $'
 ! !
 BrowserView initialize!