--- a/Signal.st	Wed Jun 05 13:24:53 2013 +0200
+++ b/Signal.st	Wed Jun 05 13:25:09 2013 +0200
@@ -192,6 +192,12 @@
 
 !Signal methodsFor:'accessing'!
 
+creator
+    "return the creator of the exception (for exception protocol compatibilty)"
+
+    ^ self
+!
+
 errorString
     "errorString is deprecated, use description instead"
 
@@ -980,10 +986,10 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.112 2013-05-13 13:47:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.113 2013-06-05 11:25:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.112 2013-05-13 13:47:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.113 2013-06-05 11:25:09 cg Exp $'
 ! !