GenericException.st
changeset 22495 3f54eb4abc4e
parent 22360 b8d77dd37262
child 22532 433d188c6654
--- a/GenericException.st	Fri Jan 19 19:23:42 2018 +0100
+++ b/GenericException.st	Fri Jan 19 22:40:18 2018 +0100
@@ -997,13 +997,15 @@
      the evaluation and return the value from exceptionValue.
      This is similar to the catch & throw mechanism found in other languages"
 
-    ^ self handle:[:ex | exceptionValue value] do:aBlock.
+    ^ self handle:exceptionValue do:aBlock.
 
     "
-     Object messageNotUnderstoodSignal
-	evaluate:[ 123 size open ]
-	ifRaised:345
+     MessageNotUnderstood
+        evaluate:[ 123 size open ]
+        ifRaised:345
     "
+
+    "Modified (comment): / 12-01-2018 / 17:48:24 / stefan"
 !
 
 handle:handleBlock do:aBlock