--- a/Set.st	Wed Jul 09 18:20:20 2014 +0200
+++ b/Set.st	Wed Jul 09 18:20:21 2014 +0200
@@ -803,7 +803,6 @@
 ! !
 
 
-
 !Set methodsFor:'obsolete set operations'!
 
 + aCollection
@@ -1231,7 +1230,6 @@
     ^ tally
 ! !
 
-
 !Set methodsFor:'testing'!
 
 capacity 
@@ -1282,6 +1280,7 @@
 !Set methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter
+    "dispatch for visitor pattern; send #visitSet:with: to aVisitor."
 
     ^ aVisitor visitSet:self with:aParameter
 ! !
@@ -1310,11 +1309,11 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.124 2014-06-03 05:38:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.125 2014-07-09 16:20:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.124 2014-06-03 05:38:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.125 2014-07-09 16:20:21 cg Exp $'
 ! !