--- a/GenericException.st	Tue Mar 26 15:20:07 2013 +0100
+++ b/GenericException.st	Tue Mar 26 15:20:21 2013 +0100
@@ -199,6 +199,7 @@
     "Modified: / 24.7.1999 / 13:21:25 / stefan"
 ! !
 
+
 !GenericException class methodsFor:'Compatibility-Dolphin'!
 
 signal:messageText
@@ -1109,6 +1110,7 @@
     "Modified: / 23.7.1999 / 14:50:11 / stefan"
 ! !
 
+
 !GenericException methodsFor:'Compatibility-ANSI'!
 
 pass
@@ -1302,6 +1304,13 @@
     "Modified: / 12.3.1998 / 15:30:45 / stefan"
 !
 
+originalSignal
+    "return the signal/exception which was originally raised.
+     For noHandler, that is my unhandled signal; for others, thats the exception itself."
+
+    ^ self.
+!
+
 originator
     "return the originator passsed with the signal raise
      (or nil, if there was none)"
@@ -2315,11 +2324,12 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.133 2012-07-23 11:04:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.134 2013-03-26 14:20:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.133 2012-07-23 11:04:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.134 2013-03-26 14:20:21 cg Exp $'
 ! !
 
+
 GenericException initialize!