--- a/BrowserView.st	Sat Feb 08 14:03:39 1997 +0100
+++ b/BrowserView.st	Mon Feb 10 14:42:45 1997 +0100
@@ -8700,24 +8700,37 @@
      as self, and access to the class variables by name.
     "
     codeView doItAction:[:theCode |
-        |compiler|
-
-        currentClass isNil ifTrue:[
-            compiler := Compiler
+        |compiler ns|
+
+        currentClass notNil ifTrue:[
+            ns := currentClass nameSpace
         ] ifFalse:[
-            compiler := currentClass evaluatorClass
-        ].
-
-        compiler 
-            evaluate:theCode 
-            in:nil 
-            receiver:currentClass 
-            notifying:codeView 
-            logged:false
-            ifFail:nil 
-    ].
-
-    "Modified: 3.1.1997 / 15:46:44 / cg"
+            ns := nil
+        ].
+
+        Class nameSpaceQuerySignal handle:[:ex |
+            ns isNil ifTrue:[
+                ex reject
+            ].
+            ex proceedWith:ns
+        ] do:[
+            currentClass isNil ifTrue:[
+                compiler := Compiler
+            ] ifFalse:[
+                compiler := currentClass evaluatorClass
+            ].
+
+            compiler 
+                evaluate:theCode 
+                in:nil 
+                receiver:currentClass 
+                notifying:codeView 
+                logged:false
+                ifFail:nil 
+        ]
+    ].
+
+    "Modified: 10.2.1997 / 14:17:15 / cg"
 !
 
 setSearchPattern:aString
@@ -9591,6 +9604,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.266 1997-01-29 18:38:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.267 1997-02-10 13:42:45 cg Exp $'
 ! !
 BrowserView initialize!

--- a/BrwsrView.st	Sat Feb 08 14:03:39 1997 +0100
+++ b/BrwsrView.st	Mon Feb 10 14:42:45 1997 +0100
@@ -8700,24 +8700,37 @@
      as self, and access to the class variables by name.
     "
     codeView doItAction:[:theCode |
-        |compiler|
-
-        currentClass isNil ifTrue:[
-            compiler := Compiler
+        |compiler ns|
+
+        currentClass notNil ifTrue:[
+            ns := currentClass nameSpace
         ] ifFalse:[
-            compiler := currentClass evaluatorClass
-        ].
-
-        compiler 
-            evaluate:theCode 
-            in:nil 
-            receiver:currentClass 
-            notifying:codeView 
-            logged:false
-            ifFail:nil 
-    ].
-
-    "Modified: 3.1.1997 / 15:46:44 / cg"
+            ns := nil
+        ].
+
+        Class nameSpaceQuerySignal handle:[:ex |
+            ns isNil ifTrue:[
+                ex reject
+            ].
+            ex proceedWith:ns
+        ] do:[
+            currentClass isNil ifTrue:[
+                compiler := Compiler
+            ] ifFalse:[
+                compiler := currentClass evaluatorClass
+            ].
+
+            compiler 
+                evaluate:theCode 
+                in:nil 
+                receiver:currentClass 
+                notifying:codeView 
+                logged:false
+                ifFail:nil 
+        ]
+    ].
+
+    "Modified: 10.2.1997 / 14:17:15 / cg"
 !
 
 setSearchPattern:aString
@@ -9591,6 +9604,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.266 1997-01-29 18:38:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.267 1997-02-10 13:42:45 cg Exp $'
 ! !
 BrowserView initialize!