--- a/TypeConverter.st	Thu Jul 10 12:01:23 2003 +0200
+++ b/TypeConverter.st	Thu Jul 10 13:54:40 2003 +0200
@@ -1045,13 +1045,10 @@
 
                     string size > 0 ifTrue:[
                         value := classOfObject readFrom:string onError:nil.
-                        value isNil ifTrue:[
-                            string size > 0 ifTrue:[
-                                value := string
-                            ]
+                        value notNil ifTrue:[
+                            model value:value
                         ].
                     ].
-                    model value:value
                 ]
 
         updateBlock: [:m :a :p | true]
@@ -1251,5 +1248,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.43 2003-07-10 10:01:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.44 2003-07-10 11:54:40 cg Exp $'
 ! !