--- a/Visitor.st	Wed May 09 00:05:00 2018 +0200
+++ b/Visitor.st	Wed May 09 08:51:05 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -141,7 +143,7 @@
 !Visitor methodsFor:'visiting smalltalk types'!
 
 visitBehavior:aSymbol with:aParameter
-    "visit a class"
+    "visit a class - fallback here is to call visitObject"
 
     self visitObject:aSymbol with:aParameter
 !
@@ -158,7 +160,7 @@
 !
 
 visitBoolean:aBoolean with:aParameter
-    "visit a Boolean"
+    "visit a Boolean - fallback here is to call visitObject"
 
     self visitObject:aBoolean with:aParameter
 !
@@ -170,19 +172,19 @@
 !
 
 visitCharacter:aCharacter with:aParameter
-    "visit a Character"
+    "visit a Character - fallback here is to call visitObject"
 
     self visitObject:aCharacter with:aParameter
 !
 
 visitCollection:aCollection with:aParameter
-    "visit a Collection"
+    "visit a Collection - fallback here is to call visitObject"
 
     self visitObject:aCollection with:aParameter
 !
 
 visitDate:aDate with:aParameter
-    "visit a date value"
+    "visit a date value - fallback here is to call visitObject"
 
     self visitObject:aDate with:aParameter
 !
@@ -220,13 +222,13 @@
 !
 
 visitNilWith:aParameter
-    "visit a nil"
+    "visit nil - fallback here is to call visitObject"
 
     self visitObject:nil with:aParameter
 !
 
 visitNumber:aNumber with:aParameter
-    "visit an Integer"
+    "visit any number  - fallback here is to call visitObject"
 
     self visitObject:aNumber with:aParameter
 !
@@ -244,13 +246,13 @@
 !
 
 visitStream:aStream with:aParameter
-    "visit a Stream"
+    "visit a Stream - fallback here is to call visitObject"
 
     self visitObject:aStream with:aParameter
 !
 
 visitString:aString with:aParameter
-    "visit a String"
+    "visit a String - fallback here is to call visitObject"
 
     self visitObject:aString with:aParameter
 !
@@ -261,14 +263,20 @@
     ^ self visitString:aSymbol with:aParameter
 !
 
+visitTime:aTime with:aParameter
+    "visit a time value - fallback here is to call visitObject"
+
+    self visitObject:aTime with:aParameter
+!
+
 visitTimestamp:aTimestamp with:aParameter
-    "visit an timestamp value"
+    "visit an timestamp value - fallback here is to call visitObject"
 
     self visitObject:aTimestamp with:aParameter
 !
 
 visitUtcTimestamp:aTimestamp with:aParameter
-    "visit an UTC timestamp value"
+    "visit an UTC timestamp value - fallback here is to call visitObject"
 
     self visitTimestamp:aTimestamp with:aParameter
 ! !