--- a/DebugView.st	Thu Oct 16 13:07:43 2008 +0200
+++ b/DebugView.st	Thu Oct 16 14:35:14 2008 +0200
@@ -5856,13 +5856,14 @@
     |cls|
 
     currentMethod isNil ifTrue:[ ^ self ].
+
     cls := currentMethod mclass.
     cls isNil ifTrue:[ ^ self ].
 
     UserInformation handle:[:ex |
         ex proceed.
     ] do:[
-        DoWhatIMeanSupport codeCompletionForClass:cls codeView:codeView.
+        DoWhatIMeanSupport codeCompletionForClass:cls context:selectedContext codeView:codeView.
     ].
 !
 
@@ -6511,7 +6512,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.451 2008-10-14 16:54:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.452 2008-10-16 12:35:14 cg Exp $'
 ! !
 
 DebugView initialize!