--- a/EditFieldWithCompletion.st	Mon Jul 25 20:07:33 2016 +0100
+++ b/EditFieldWithCompletion.st	Mon Jul 25 07:56:41 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2006 by eXept Software AG
 	      All Rights Reserved
@@ -342,15 +340,15 @@
     
     best := completionInfo first.
     options := completionInfo second.
-    best isNil ifTrue:[self halt ].
-"/    (options includes:best) ifFalse:[
-"/        best := options 
-"/                    detect:[:e | e asString startsWith:best asString ]
-"/                    ifNone:[ best ]
-"/    ].
-"/    options isSortedCollection ifFalse:[
-"/        options := options asSortedCollection:[:a :b | a displayString < b displayString ]
-"/    ].
+"/    best isNil ifTrue:[self halt ].
+    (options includes:best) ifFalse:[
+        best := options 
+                    detect:[:e | e asString startsWith:best asString ]
+                    ifNone:[ best ]
+    ].
+    options isSortedCollection ifFalse:[
+        options := options asSortedCollection:[:a :b | a displayString < b displayString ]
+    ].
     self sensor 
         pushUserEvent:selector
         for:self
@@ -360,7 +358,7 @@
     "Modified: / 09-08-2009 / 02:51:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 18-11-2011 / 14:33:56 / cg"
     "Modified (format): / 20-11-2011 / 09:42:25 / cg"
-    "Modified: / 20-04-2012 / 18:20:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-07-2016 / 07:55:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doTabCompletion
@@ -452,6 +450,11 @@
     ^ '$Header$'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$Id$'
 ! !