--- a/WorkspaceCompletionSupport.st	Fri Sep 27 23:01:16 2013 +0100
+++ b/WorkspaceCompletionSupport.st	Sun Sep 29 18:55:50 2013 +0100
@@ -40,7 +40,8 @@
     UserInformation ignoreIn:[
         anyFound := false.
         DoWhatIMeanSupport 
-            codeCompletionForLanguage: editView editedLanguage
+            codeCompletionFor: editView codeAspect
+            language: editView editedLanguage
             method:editView editedMethod
             orClass:editView editedClass 
             context:contextOrNil 
@@ -231,10 +232,10 @@
 !WorkspaceCompletionSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WorkspaceCompletionSupport.st,v 1.1 2013-09-26 17:07:44 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WorkspaceCompletionSupport.st,v 1.2 2013/09/27 09:26:43 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/WorkspaceCompletionSupport.st,v 1.1 2013-09-26 17:07:44 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WorkspaceCompletionSupport.st,v 1.2 2013/09/27 09:26:43 vrany Exp $'
 ! !