--- a/Visitor.st	Thu Sep 25 18:20:40 2008 +0200
+++ b/Visitor.st	Fri Sep 26 12:55:07 2008 +0200
@@ -167,6 +167,12 @@
     self visitObject:aCollection with:aParameter
 !
 
+visitDate:aDate with:aParameter
+    "visit a date value"
+
+    self visitObject:aDate with:aParameter
+!
+
 visitDictionary:aDictionary with:aParameter
     "visit a Dictionary"
 
@@ -236,7 +242,7 @@
 !
 
 visitTimestamp:aTimestamp with:aParameter
-    "visit an absolute time value"
+    "visit an timestamp value"
 
     self visitObject:aTimestamp with:aParameter
 ! !
@@ -244,5 +250,5 @@
 !Visitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Visitor.st,v 1.4 2008-06-03 16:23:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Visitor.st,v 1.5 2008-09-26 10:55:07 stefan Exp $'
 ! !