--- a/Tools__CodeView2.st	Wed Sep 18 15:23:32 2013 +0200
+++ b/Tools__CodeView2.st	Wed Sep 18 15:23:44 2013 +0200
@@ -1784,14 +1784,14 @@
         ex proceed.
     ] do:[
         self withWaitCursorDo:[
-            DoWhatIMeanSupport codeCompletionForClass:cls context:nil codeView:self.
+            DoWhatIMeanSupport codeCompletionForLanguage: cls programmingLanguage class:cls context:nil codeView:self.
         ]
     ].
     ^ self.
 
     "Modified: / 04-07-2006 / 18:48:26 / fm"
     "Modified: / 20-11-2006 / 12:30:59 / cg"
-    "Modified: / 16-02-2010 / 10:53:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-09-2013 / 14:18:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 reallyModified
@@ -3615,15 +3615,15 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.117 2013-09-06 12:25:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.118 2013-09-18 13:23:44 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.117 2013-09-06 12:25:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.118 2013-09-18 13:23:44 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeView2.st,v 1.117 2013-09-06 12:25:17 cg Exp $'
+    ^ '$Id: Tools__CodeView2.st,v 1.118 2013-09-18 13:23:44 vrany Exp $'
 ! !