--- a/DebugView.st	Thu Jun 18 14:32:50 1998 +0200
+++ b/DebugView.st	Thu Jun 18 14:48:12 1998 +0200
@@ -3299,14 +3299,17 @@
     "/ in case we accept while in another nameSpace context,
     "/ (but for a class which is somewhere else)
     "/
-    Class nameSpaceQuerySignal
-    answer:(implementorClass nameSpace)
+    Class updateChangeFileQuerySignal answer:true
     do:[
-        newMethod := implementorClass compilerClass
-                         compile:someCode
-                         forClass:implementorClass
-                         inCategory:(method category)
-                         notifying:codeView.
+        Class nameSpaceQuerySignal
+        answer:(implementorClass nameSpace)
+        do:[
+            newMethod := implementorClass compilerClass
+                             compile:someCode
+                             forClass:implementorClass
+                             inCategory:(method category)
+                             notifying:codeView.
+        ].
     ].
 
     inspecting ifFalse:[
@@ -3327,7 +3330,7 @@
     ].
     codeView cursor:Cursor normal
 
-    "Modified: / 7.3.1998 / 13:43:59 / cg"
+    "Modified: / 18.6.1998 / 14:47:30 / cg"
 !
 
 destroy
@@ -3756,6 +3759,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.205 1998-06-17 21:43:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.206 1998-06-18 12:48:12 cg Exp $'
 ! !
 DebugView initialize!