--- a/Visitor.st	Mon Jan 24 14:18:36 2011 +0100
+++ b/Visitor.st	Mon Jan 24 14:20:08 2011 +0100
@@ -251,10 +251,20 @@
     "visit an timestamp value"
 
     self visitObject:aTimestamp with:aParameter
+!
+
+visitUtcTimestamp:aTimestamp with:aParameter
+    "visit an UTC timestamp value"
+
+    self visitTimestamp:aTimestamp with:aParameter
 ! !
 
 !Visitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Visitor.st,v 1.6 2009-06-08 16:35:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Visitor.st,v 1.7 2011-01-24 13:20:08 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/Visitor.st,v 1.7 2011-01-24 13:20:08 stefan Exp $'
 ! !