--- a/Set.st	Thu Mar 16 16:50:03 2017 +0100
+++ b/Set.st	Thu Mar 16 16:50:14 2017 +0100
@@ -623,9 +623,10 @@
 !
 
 testAndAdd:keyArg
-    "add the argument, anObject to the receiver.
+    "Test, if the element is present in the receiver.
      Answer true, if the element did already exist in the collection,
      false otherwise.
+     If the element does not exist, add it to the collection.
 
      WARNING: do not add elements while iterating over the receiver.
               Iterate over a copy to do this."
@@ -652,6 +653,7 @@
 
     "Modified: / 30-01-1997 / 14:58:08 / cg"
     "Modified: / 16-02-2017 / 13:47:10 / stefan"
+    "Modified (comment): / 16-03-2017 / 16:46:04 / stefan"
 ! !