--- a/TypeConverter.st	Fri May 22 20:44:37 1998 +0200
+++ b/TypeConverter.st	Tue May 26 16:10:29 1998 +0200
@@ -570,7 +570,7 @@
                 (symbolValue := model value) isSymbol ifFalse:[
                     String new
                 ] ifTrue:[
-                    symbolValue storeString
+                    symbolValue printString. "/ storeString
                 ]]
 
         putBlock:
@@ -595,7 +595,7 @@
         updateBlock: [:m :a :p | true]
 
     "Created: / 21.2.1997 / 18:58:38 / cg"
-    "Modified: / 29.10.1997 / 15:49:25 / cg"
+    "Modified: / 26.5.1998 / 15:06:06 / cg"
 !
 
 timeOrNil
@@ -665,5 +665,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.13 1998-05-22 13:03:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.14 1998-05-26 14:10:29 cg Exp $'
 ! !