--- a/MessageNotUnderstood.st	Fri Sep 07 13:01:51 2001 +0200
+++ b/MessageNotUnderstood.st	Fri Sep 07 13:14:21 2001 +0200
@@ -16,8 +16,37 @@
     ^ true
 ! !
 
+!MessageNotUnderstood methodsFor:'accessing'!
+
+message
+    ^ parameter
+
+    "
+     [
+        123 perform:#foo
+     ] on:MessageNotUnderstood do:[:ex |
+        Transcript show:'message object: '; showCR:ex message storeString.
+        Transcript show:'receiver: '; showCR:ex receiver storeString.
+        Transcript show:'selector: '; showCR:ex message selector storeString.
+        Transcript show:'arguments: '; showCR:ex message arguments storeString.
+     ]
+    "
+!
+
+receiver
+    ^ originator
+
+    "
+     [
+        123 perform:#foo
+     ] on:MessageNotUnderstood do:[:ex |
+        Transcript showCR:ex receiver
+     ]
+    "
+! !
+
 !MessageNotUnderstood class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MessageNotUnderstood.st,v 1.1 2001-09-07 10:43:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MessageNotUnderstood.st,v 1.2 2001-09-07 11:14:21 cg Exp $'
 ! !