--- a/Behavior.st	Wed Jul 09 18:21:21 2014 +0200
+++ b/Behavior.st	Wed Jul 09 18:21:23 2014 +0200
@@ -1252,7 +1252,6 @@
 ! !
 
 
-
 !Behavior methodsFor:'accessing'!
 
 addSelector:newSelector withMethod:newMethod
@@ -5048,6 +5047,7 @@
 !Behavior methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter
+    "dispatch for visitor pattern; send #visitBehavior:with: to aVisitor"
 
     ^ aVisitor visitBehavior:self with:aParameter
 ! !
@@ -5055,10 +5055,10 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.358 2014-03-25 15:47:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.359 2014-07-09 16:21:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.358 2014-03-25 15:47:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.359 2014-07-09 16:21:23 cg Exp $'
 ! !