--- a/DebugView.st	Wed Mar 27 15:08:05 2013 +0100
+++ b/DebugView.st	Wed Mar 27 16:40:42 2013 +0100
@@ -7211,19 +7211,24 @@
             Class nameSpaceQuerySignal
             answer:(aClass nameSpace)
             do:[
-                Class packageQuerySignal
-                answer:(aClass package ? PackageId noProjectID)
-                do:[
+                "/ the compiler already cares for the package...
+
+"/                Class packageQuerySignal
+"/                answer:(aClass package ? PackageId noProjectID)
+"/                do:[
                     codeView contents:someCode.
                     newMethod := aClass compilerClass
                                      compile:someCode
                                      forClass:aClass
                                      inCategory:category
                                      notifying:codeView.
-                ].
+"/                ].
             ].
         ].
 
+        methodCodeToggleSelectionHolder value:2.    "/ showing current code
+        methodCodeToggle beVisible.
+
         inspecting ifFalse:[
             "
              if it worked, remove everything up to and including top
@@ -7319,6 +7324,8 @@
             ]
         ] ifFalse:[
             implementorClass := selectedContext receiver class.
+            implementorClass := implementorClass whichClassImplements:sel.
+
             implementorClass ~~ Object ifTrue:[
                 implementorClass := Dialog
                                         request:('Define ''%1'' in class:' bindWith:sel allBold)
@@ -8249,11 +8256,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.574 2013-03-26 16:53:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.575 2013-03-27 15:40:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.574 2013-03-26 16:53:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.575 2013-03-27 15:40:42 cg Exp $'
 !
 
 version_SVN