--- a/Behavior.st	Thu Feb 09 18:18:24 2017 +0100
+++ b/Behavior.st	Fri Feb 10 10:35:46 2017 +0100
@@ -2188,22 +2188,31 @@
 
 instAndClassMethodsDo:aOneArgBlock
     "evaluate the argument, aBlock for all methods of mySelf and my metaclass
-     (i.e. for both instance- and class methods)"
+     See selectorsAndMethodsDo: for a method which only enumerates methods here."
 
     self theNonMetaclass methodsDo:aOneArgBlock.
     self theMetaclass    methodsDo:aOneArgBlock.
+
+    "Modified (comment): / 10-02-2017 / 10:30:49 / cg"
 !
 
 instAndClassSelectorsAndMethodsDo:aTwoArgBlock
     "evaluate the argument, aBlock for all selectors of mySelf and my metaclass,
-     passing the corresponding method as second argument"
+     passing the corresponding method as second argument.
+     This enumerates methods both here and in my corresponding nonMeta/meta class.
+     See selectorsAndMethodsDo: for a method which only enumerates methods here."
 
     self selectorsAndMethodsDo:aTwoArgBlock.
     self class selectorsAndMethodsDo:aTwoArgBlock.
+
+    "Modified (comment): / 10-02-2017 / 10:30:28 / cg"
 !
 
 methodsDo:aOneArgBlock
-    "evaluate the argument, aBlock for all my methods"
+    "evaluate the argument, aBlock for all my methods.
+     This only enumerates methods contained here,
+     not in my corresponding nonMeta/meta class.
+     See instAndClassMethodsDo: for a method which does this."
 
     self methodDictionary do:aOneArgBlock
 
@@ -2213,22 +2222,30 @@
      UndefinedObject methodDictionary
     "
 
-    "Modified (comment): / 25-11-2016 / 15:42:43 / cg"
+    "Modified (comment): / 10-02-2017 / 10:31:17 / cg"
 !
 
 selectorsAndMethodsDo:aTwoArgBlock
     "evaluate the argument, aBlock for all my selectors,
-     passing the corresponding method as second argument"
+     passing the corresponding method as second argument.
+     This only enumerates methods contained here,
+     not in my corresponding nonMeta/meta class.
+     See instAndClassSelectorsAndMethodsDo: for a method which does this."
 
     self methodDictionary keysAndValuesDo:aTwoArgBlock
 
-    "Created: / 27.10.1997 / 14:09:27 / cg"
+    "Created: / 27-10-1997 / 14:09:27 / cg"
+    "Modified (comment): / 10-02-2017 / 10:29:43 / cg"
 !
 
 selectorsDo:aOneArgBlock
-    "evaluate the argument, aBlock for all my selectors"
+    "evaluate the argument, aBlock for all my selectors.
+     This only enumerates selectors of methods contained here,
+     not in my corresponding nonMeta/meta class."
 
     self methodDictionary keysDo:aOneArgBlock
+
+    "Modified (comment): / 10-02-2017 / 10:31:45 / cg"
 !
 
 subclassesDo:aBlock