--- a/Signal.st	Mon Mar 25 23:04:02 2013 +0000
+++ b/Signal.st	Wed Mar 27 12:24:15 2013 +0000
@@ -246,6 +246,13 @@
     notifierString := aString
 !
 
+originalSignal
+    "return the signal/exception which was originally raised.
+     For noHandler, that is my unhandled signal; for others, thats the exception itself."
+
+    ^ self.
+!
+
 parent
     "return the parent-signal of the receiver"
 
@@ -343,6 +350,13 @@
     "Modified: / 12.3.1998 / 15:04:41 / stefan"
 !
 
+descriptionForDebugger
+    "return the description string of the signal which is used in the 
+     debugger title area"
+
+    ^ self description.
+!
+
 printOn:aStream
     "append a printed representation of the receiver on aStream"
 
@@ -964,9 +978,10 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.109 2010-08-10 08:35:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.110 2013-03-26 14:20:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.109 2010-08-10 08:35:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.110 2013-03-26 14:20:07 cg Exp $'
 ! !
+