--- a/TypeConverter.st	Tue Jul 06 18:49:48 1999 +0200
+++ b/TypeConverter.st	Thu Jul 08 11:28:22 1999 +0200
@@ -485,7 +485,7 @@
 
                 |value|
 
-                string notEmpty ifTrue:[
+                string size > 0 ifTrue:[
                     value := Number readFrom:string onError:nil
                 ]. 
                 model value:value]
@@ -893,5 +893,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.25 1999-07-02 10:55:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.26 1999-07-08 09:28:22 cg Exp $'
 ! !