--- a/SequenceableCollection.st	Tue Jul 18 11:37:07 2017 +0200
+++ b/SequenceableCollection.st	Tue Jul 18 13:29:02 2017 +0200
@@ -5498,15 +5498,28 @@
      therefore the change may affect all others referencing the receiver."
 
     self
-	replaceAllForWhich:aConditionBlock with:newObject
-	from:1 to:(self size)
+        replaceAllForWhich:aConditionBlock with:newObject
+        from:1 to:(self size)
 
     "
      args:    aConditionBlock  : <block>
-	      newObject        : <object>
+              newObject        : <object>
 
      returns: self
     "
+    
+    "
+     ('bla',Character tab,'bla',Character cr,'bla') 
+        replaceAllForWhich:[ch: ch isSeparator]
+        with:(Character space)
+
+     ('bla',Character tab,'bla',Character cr,'bla') 
+        replaceAllForWhich:#isSeparator
+        with:(Character space)
+
+    "
+
+    "Modified (format): / 18-07-2017 / 13:28:45 / cg"
 !
 
 replaceAllForWhich:aConditionBlock with:newObject from:startIndex to:stopIndex