--- a/Tools__CodeCompletionService.st	Tue Sep 17 23:28:02 2013 +0200
+++ b/Tools__CodeCompletionService.st	Wed Sep 18 15:23:32 2013 +0200
@@ -135,7 +135,7 @@
         ex proceed.
     ] do:[
         codeView withWaitCursorDo:[
-            DoWhatIMeanSupport codeCompletionForClass:cls context:nil codeView:textView.
+            DoWhatIMeanSupport codeCompletionForLanguage: codeView language class:cls context:nil codeView:textView.
         ]
     ].
     ^ self.
@@ -148,10 +148,10 @@
 !CodeCompletionService class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionService.st,v 1.9 2013-08-31 22:32:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionService.st,v 1.10 2013-09-18 13:23:32 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeCompletionService.st,v 1.9 2013-08-31 22:32:36 cg Exp $'
+    ^ '$Id: Tools__CodeCompletionService.st,v 1.10 2013-09-18 13:23:32 vrany Exp $'
 ! !