--- a/EditField.st	Sat Nov 13 13:27:47 1999 +0100
+++ b/EditField.st	Sat Nov 13 14:17:41 1999 +0100
@@ -1112,8 +1112,10 @@
 
     newCol := cursorCol.
 
-    (someText respondsTo:#asString) ifTrue:[
-        txt := someText asString
+    someText notNil ifTrue:[
+        (someText respondsTo:#asString) ifTrue:[
+            txt := someText asString
+        ]
     ].
     super contents:txt.
 
@@ -1129,7 +1131,7 @@
 
     self cursorCol:newCol.
 
-    "Modified: 4.4.1997 / 21:38:24 / cg"
+    "Modified: / 13.11.1999 / 13:50:30 / cg"
 !
 
 converter
@@ -2071,5 +2073,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.145 1999-09-20 10:15:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.146 1999-11-13 13:17:41 cg Exp $'
 ! !