--- a/WorkspaceCompletionSupport.st	Fri Dec 09 13:44:48 2016 +0100
+++ b/WorkspaceCompletionSupport.st	Fri Dec 09 13:45:39 2016 +0100
@@ -32,11 +32,12 @@
 
 computeCompletions
 
-    |suggestions implementations actions contextOrNil|
+    |topView suggestions implementations actions contextOrNil|
 
-    "/ a hack
-    (editView topView isKindOf: DebugView) ifTrue:[
-        contextOrNil := editView topView selectedContext.
+    "/ a hack - we get better completions, if we know the current context
+    topView := editView topView.
+    (topView notNil and:[topView isDebugView]) ifTrue:[
+        contextOrNil := topView selectedContext.
     ].
 
     UserInformation ignoreIn:[