--- a/Interval.st	Wed Jul 09 18:20:27 2014 +0200
+++ b/Interval.st	Wed Jul 09 18:20:55 2014 +0200
@@ -680,7 +680,8 @@
 !Interval methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter
-    "this is special. Some encoders want to encode this as a sequenceable collection,
+    "dispatch for visitor pattern; send #visitInterval:with: to aVisitor.
+     this is special. Some encoders want to encode this as a sequenceable collection,
      some want to encode a less expensive representation"
 
     ^ aVisitor visitInterval:self with:aParameter
@@ -689,10 +690,10 @@
 !Interval class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.55 2014-07-09 15:05:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.56 2014-07-09 16:20:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.55 2014-07-09 15:05:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.56 2014-07-09 16:20:55 cg Exp $'
 ! !