--- a/TypeConverter.st	Mon Mar 10 19:36:50 2008 +0100
+++ b/TypeConverter.st	Fri Mar 14 11:42:25 2008 +0100
@@ -242,11 +242,9 @@
 !TypeConverter methodsFor:'accessing'!
 
 subject
-    "return the cobverted subject"
+    "return the subject to be converted"
 
     ^ model
-
-    "Created: 21.2.1997 / 18:45:12 / cg"
 !
 
 value:newValue
@@ -524,11 +522,12 @@
                 date isNil ifTrue:[
                     ''
                 ] ifFalse:[
-                    stxFormat isNil ifTrue:[
+                    (stxFormat isNil or:[date isString]) ifTrue:[
                         date printString
                     ] ifFalse:[
                         date printStringFormat:stxFormat
-                ]]]
+                    ].
+                ]]
 
         putBlock:
                 [:model :string |
@@ -1502,5 +1501,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.52 2008-03-09 22:06:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.53 2008-03-14 10:42:25 stefan Exp $'
 ! !