diff -r b10129322a0c -r 623c4cfe253d TypeConverter.st
--- a/TypeConverter.st	Fri Jul 09 21:22:01 1999 +0200
+++ b/TypeConverter.st	Fri Jul 09 21:47:07 1999 +0200
@@ -737,8 +737,17 @@
      - probably not belonging to here"
 
     self
-        getBlock:[:model |
-                     model value storeString , ' "' , model value class name , '" '
+        getBlock:[:model | |v s|
+                     v := model value.
+                     v isNil ifTrue:[
+                        s := ''
+                     ] ifFalse:[
+                            s := v storeString.
+                            (v isString or:[v isNumber]) ifFalse:[
+                                s := s , ' "' , v class name , '" '
+                            ]
+                     ].
+                     s
                  ]
 
         putBlock:
@@ -746,11 +755,13 @@
 
                     |value|
 
-                    value := Object readFrom:string onError:nil.
-                    value isNil ifTrue:[
-                        string size > 0 ifTrue:[
-                            value := string
-                        ]
+                    string size > 0 ifTrue:[
+                        value := Object readFrom:string onError:nil.
+                        value isNil ifTrue:[
+                            string size > 0 ifTrue:[
+                                value := string
+                            ]
+                        ].
                     ].
                     model value:value
                 ]
@@ -893,5 +904,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.26 1999-07-08 09:28:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.27 1999-07-09 19:47:07 cg Exp $'
 ! !