--- a/GenericException.st	Tue Dec 01 20:59:38 2009 +0100
+++ b/GenericException.st	Tue Dec 01 21:03:39 2009 +0100
@@ -1140,6 +1140,12 @@
     "
 ! !
 
+!GenericException methodsFor:'Compatibility-Squeak'!
+
+signalerContext
+    ^ self suspendedContext
+! !
+
 !GenericException methodsFor:'accessing'!
 
 catchInDebugger
@@ -2126,11 +2132,11 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.123 2009-11-19 11:52:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.124 2009-12-01 20:03:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.123 2009-11-19 11:52:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.124 2009-12-01 20:03:39 cg Exp $'
 ! !
 
 GenericException initialize!