--- a/Object.st	Wed Sep 04 15:27:57 2002 +0200
+++ b/Object.st	Thu Sep 05 13:56:06 2002 +0200
@@ -6890,6 +6890,9 @@
         "/ we have sent originally
         ex parameter selector == aSelector ifFalse:[
             ex reject
+        ].
+        ex receiver == self ifFalse:[
+            ex reject
         ]
     ] do:[
         val := self perform:aSelector.
@@ -6919,6 +6922,9 @@
         "/ we have sent originally
         ex parameter selector == aSelector ifFalse:[
             ex reject
+        ].
+        ex receiver == self ifFalse:[
+            ex reject
         ]
     ] do:[
         val := self perform:aSelector with:argument.
@@ -6951,6 +6957,9 @@
         "/ we have sent originally
         ex parameter selector == aSelector ifFalse:[
             ex reject
+        ].
+        ex receiver == self ifFalse:[
+            ex reject
         ]
     ] do:[
         val := self perform:aSelector with:arg1 with:arg2.
@@ -6983,6 +6992,9 @@
         "/ we have sent originally
         ex parameter selector == aSelector ifFalse:[
             ex reject
+        ].
+        ex receiver == self ifFalse:[
+            ex reject
         ]
     ] do:[
         val := self perform:aSelector withArguments:argumentArray.
@@ -8797,6 +8809,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.421 2002-08-22 14:27:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.422 2002-09-05 11:56:06 cg Exp $'
 ! !
 Object initialize!