--- a/EditField.st	Mon Jun 16 11:59:43 1997 +0200
+++ b/EditField.st	Mon Jun 16 19:03:53 1997 +0200
@@ -1110,7 +1110,7 @@
 
     newCol := cursorCol.
 
-    someText notNil ifTrue:[
+    (someText respondsTo:#asString) ifTrue:[
         txt := someText asString
     ].
     super contents:txt.
@@ -1940,5 +1940,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.90 1997-05-20 17:01:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.91 1997-06-16 17:03:53 ca Exp $'
 ! !