--- a/Set.st	Mon Feb 06 09:55:42 2017 +0100
+++ b/Set.st	Mon Feb 06 12:55:11 2017 +0100
@@ -372,11 +372,15 @@
 !
 
 clearContents
-    "remove all elements from the receiver, but do not resize.
-     Returns the receiver."
+    "remove all elements from the receiver, but does not resize.
+     Returns the receiver.
+     Similar to removeAll, but might behave better, 
+     if the receiver is to be filled again afterwards."
 
     keyArray atAllPut:nil.
     tally := 0.
+
+    "Modified (comment): / 06-02-2017 / 12:55:05 / cg"
 !
 
 remove:oldObjectArg ifAbsent:exceptionBlock