diff -r a95e315ed8b4 -r 609d492f29a7 Object.st
--- a/Object.st	Thu Apr 30 11:30:11 2020 +0200
+++ b/Object.st	Sun May 03 13:20:12 2020 +0200
@@ -594,7 +594,6 @@
 ! !
 
 
-
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -8650,18 +8649,18 @@
      Read this:
      Many programmers do an Error-handle to perform a similar
      checked-message send. However, this method is more specific,
-     in that only errors for the given selector are caught - not any other
+     in that only errors for the given selector and this receiver are caught - not any other
      doesNotUnderstand, and especially not any other error."
 
     ^ [
-	self perform:aSelector.
+        self perform:aSelector.
     ] on:MessageNotUnderstood do:[:ex |
-	"/ reject, if the bad message is not the one
-	"/ we have sent originally
-	(ex selector == aSelector and:[ex receiver == self]) ifFalse:[
-	    ex reject
-	].
-	exceptionBlock value
+        "/ reject, if the bad message is not the one
+        "/ we have sent originally
+        (ex selector == aSelector and:[ex receiver == self]) ifFalse:[
+            ex reject
+        ].
+        exceptionBlock value
     ].
 
     "
@@ -8670,8 +8669,8 @@
      12345 perform:#sqrt ifNotUnderstood:['sorry']
     "
 
-    "Modified (comment): / 13-02-2017 / 20:27:38 / cg"
     "Modified: / 15-03-2017 / 17:05:58 / stefan"
+    "Modified (comment): / 03-05-2020 / 13:19:31 / cg"
 !
 
 perform:aSelector with:argument ifNotUnderstood:exceptionBlock