--- a/Tools__CodeCompletionMenu.st	Fri Sep 06 01:18:30 2013 +0200
+++ b/Tools__CodeCompletionMenu.st	Fri Sep 06 01:19:02 2013 +0200
@@ -205,9 +205,10 @@
     currentList := self list.
     idx := typedString size + 1.
     [
-        (currentList allSatisfy:[:s|s size >= idx]) and:[
+        (currentList conform:[:s|s size >= idx]) 
+        and:[
             char := currentList anyOne at:idx.
-            currentList allSatisfy:[:s|(s at:idx) == char]
+            currentList conform:[:s|(s at:idx) == char]
         ]
     ] whileTrue:[
         idx := idx + 1.
@@ -302,10 +303,10 @@
 !CodeCompletionMenu class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionMenu.st,v 1.4 2013-01-17 10:39:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionMenu.st,v 1.5 2013-09-05 23:19:02 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id: Tools__CodeCompletionMenu.st 7690 2011-03-19 02:23:25Z vranyj1 §'
+    ^ '$Id: Tools__CodeCompletionMenu.st,v 1.5 2013-09-05 23:19:02 cg Exp $'
 ! !