--- a/TypeConverter.st	Mon Feb 10 18:43:11 2003 +0100
+++ b/TypeConverter.st	Mon Feb 10 18:43:54 2003 +0100
@@ -461,7 +461,13 @@
 
     self
         getBlock:[:model |
-                    (model value ? Date today) printFormat:printFormat
+                    |date|
+
+                    date := model value.
+                    date isNil ifTrue:[
+                        date := Date today.
+                    ].
+                    date printFormat:printFormat
                 ]
 
         putBlock:
@@ -1214,5 +1220,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.40 2003-02-10 17:43:11 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.41 2003-02-10 17:43:54 penk Exp $'
 ! !