--- a/Object.st	Tue Jul 13 09:35:18 2004 +0200
+++ b/Object.st	Tue Jul 13 09:37:43 2004 +0200
@@ -504,6 +504,22 @@
     "Modified: 23.4.1996 / 16:00:07 / cg"
 ! !
 
+
+
+!Object methodsFor:'Compatibility-Dolphin'!
+
+trigger:anAspect 
+    self changed:anAspect
+!
+
+trigger:anAspect with:anArgument 
+    self changed:anAspect with:anArgument
+!
+
+when:anAspect sendTo:anObject
+    self expressInterestIn:anAspect for:anObject sendBack:anAspect
+! !
+
 !Object methodsFor:'Compatibility-ST80'!
 
 isMetaclass
@@ -7715,6 +7731,8 @@
     "
 ! !
 
+
+
 !Object methodsFor:'synchronized evaluation'!
 
 freeSynchronizationSemaphore    
@@ -9200,7 +9218,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.504 2004-06-30 09:42:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.505 2004-07-13 07:37:43 stefan Exp $'
 ! !
 
 Object initialize!