--- a/DebugView.st	Thu Jan 20 14:42:54 2005 +0100
+++ b/DebugView.st	Fri Jan 21 18:13:39 2005 +0100
@@ -5241,20 +5241,17 @@
         "/ in case we accept while in another nameSpace context,
         "/ (but for a class which is somewhere else)
         "/
-        Class updateChangeFileQuerySignal answer:true
+        (Class updateChangeFileQuerySignal, Class updateChangeListQuerySignal) answer:true
         do:[
-            Class updateChangeListQuerySignal answer:true
+            Class nameSpaceQuerySignal
+            answer:(implementorClass nameSpace)
             do:[
-                Class nameSpaceQuerySignal
-                answer:(implementorClass nameSpace)
-                do:[
-                    codeView contents:someCode.
-                    newMethod := implementorClass compilerClass
-                                     compile:someCode
-                                     forClass:implementorClass
-                                     inCategory:category
-                                     notifying:codeView.
-                ].
+                codeView contents:someCode.
+                newMethod := implementorClass compilerClass
+                                 compile:someCode
+                                 forClass:implementorClass
+                                 inCategory:category
+                                 notifying:codeView.
             ].
         ].
 
@@ -5870,7 +5867,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.377 2004-11-24 09:41:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.378 2005-01-21 17:13:39 stefan Exp $'
 ! !
 
 DebugView initialize!