--- a/Date.st	Wed Jul 09 18:20:59 2014 +0200
+++ b/Date.st	Wed Jul 09 18:21:01 2014 +0200
@@ -804,7 +804,6 @@
     ^ self newDay:day month:mon year:yr
 ! !
 
-
 !Date class methodsFor:'change & update'!
 
 update:something with:aParameter from:changedObject
@@ -3156,6 +3155,7 @@
 !Date methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter
+    "dispatch for visitor pattern; send #visitDate:with: to aVisitor"
 
     ^ aVisitor visitDate:self with:aParameter
 ! !
@@ -3163,11 +3163,11 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.147 2014-03-02 00:48:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.148 2014-07-09 16:21:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.147 2014-03-02 00:48:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.148 2014-07-09 16:21:01 cg Exp $'
 ! !