--- a/Tools__CodeCompletionService.st	Fri Apr 29 12:28:37 2016 +0200
+++ b/Tools__CodeCompletionService.st	Fri Apr 29 12:29:21 2016 +0200
@@ -64,6 +64,7 @@
 "
 ! !
 
+
 !CodeCompletionService class methodsFor:'accessing'!
 
 label
@@ -122,8 +123,7 @@
 complete
     |cls|
 
-    codeView languageHolder value == SmalltalkLanguage instance   
-        ifFalse:[^self].
+    codeView languageHolder value isSmalltalk ifFalse:[^self].
 
     cls := codeView classHolder value.
     cls isNil ifTrue:[
@@ -148,10 +148,10 @@
 !CodeCompletionService class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionService.st,v 1.10 2013-09-18 13:23:32 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeCompletionService.st,v 1.10 2013-09-18 13:23:32 vrany Exp $'
+    ^ '$Id$'
 ! !