--- a/Workspace.st	Mon Sep 23 17:54:21 2013 +0200
+++ b/Workspace.st	Tue Sep 24 11:21:06 2013 +0200
@@ -2381,7 +2381,12 @@
 
     completionProcess := 
         [
-            |suggestions implementations actions anyFound|
+            |suggestions implementations actions anyFound contextOrNil|
+
+            "/ a hack
+            (editView topView isKindOf: DebugView) ifTrue:[
+                contextOrNil := editView topView selectedContext
+            ].
 
             UserInformation ignoreIn:[
                 anyFound := false.
@@ -2389,7 +2394,7 @@
                     codeCompletionForLanguage: editView editedLanguage
                     method:editView editedMethod
                     orClass:editView editedClass 
-                    context:nil 
+                    context:contextOrNil 
                     codeView:editView 
                     into:[:listOfSuggestions :listOfActions :titleWhenAsking |
 "/ (listOfSuggestions contains:[:l | l isEmptyOrNil]) ifTrue:[self halt].
@@ -2599,10 +2604,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.306 2013-09-18 13:23:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.307 2013-09-24 09:21:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.306 2013-09-18 13:23:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.307 2013-09-24 09:21:06 cg Exp $'
 ! !