--- a/GenericException.st	Wed Nov 18 19:09:22 2009 +0100
+++ b/GenericException.st	Thu Nov 19 12:49:26 2009 +0100
@@ -1114,6 +1114,29 @@
     ^ self raise
 ! !
 
+!GenericException methodsFor:'Compatibility-Dolphin'!
+
+stackTrace:numberOfFrames
+    "return a collection of backtrace strings"
+
+    |con|
+
+    con := suspendedContext.
+    ^ (1 to:numberOfFrames)
+        collect:[:idx |
+            con fullPrintString.
+            con := con sender.
+        ].
+
+    "
+     Error handle:[:ex |
+        (ex stackTrace:20) inspect.
+     ] do:[
+        self error
+     ].
+    "
+! !
+
 !GenericException methodsFor:'accessing'!
 
 catchInDebugger
@@ -2100,11 +2123,11 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.120 2009-10-06 10:15:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.121 2009-11-19 11:49:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.120 2009-10-06 10:15:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.121 2009-11-19 11:49:26 cg Exp $'
 ! !
 
 GenericException initialize!