--- a/EnterBox.st	Wed Apr 03 21:53:14 2013 +0200
+++ b/EnterBox.st	Wed Apr 03 21:53:21 2013 +0200
@@ -393,7 +393,7 @@
     "define the initial text in the enterfield, and the part to be selected"
 
     self initialText:aString.
-    self selectFrom:start to:stop
+    self selectFromCharacterPosition:start to:stop
 !
 
 initialText:someString selected:selected
@@ -710,9 +710,10 @@
 !EnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.68 2012-01-23 17:25:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.69 2013-04-03 19:53:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.68 2012-01-23 17:25:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.69 2013-04-03 19:53:21 cg Exp $'
 ! !
+