--- a/DebugView.st	Thu Oct 18 15:00:12 2001 +0200
+++ b/DebugView.st	Thu Oct 18 15:00:24 2001 +0200
@@ -2823,7 +2823,7 @@
                             ifFalse:[selectedContext selector].
     ].
     selector := Dialog 
-                    request:'Selector to browse implementors of:'
+                    requestSelector:'Selector to browse implementors of:'
                     initialAnswer:initial.
     selector size == 0 ifFalse:[
         UserPreferences systemBrowserClass
@@ -4489,14 +4489,17 @@
         "/
         Class updateChangeFileQuerySignal answer:true
         do:[
-            Class nameSpaceQuerySignal
-            answer:(implementorClass nameSpace)
+            Class updateChangeListQuerySignal answer:true
             do:[
-                newMethod := implementorClass compilerClass
-                                 compile:someCode
-                                 forClass:implementorClass
-                                 inCategory:category
-                                 notifying:codeView.
+                Class nameSpaceQuerySignal
+                answer:(implementorClass nameSpace)
+                do:[
+                    newMethod := implementorClass compilerClass
+                                     compile:someCode
+                                     forClass:implementorClass
+                                     inCategory:category
+                                     notifying:codeView.
+                ].
             ].
         ].
 
@@ -4986,6 +4989,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.286 2001-10-10 15:25:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.287 2001-10-18 13:00:24 cg Exp $'
 ! !
 DebugView initialize!