--- a/GenericException.st	Thu Nov 05 14:41:30 2009 +0000
+++ b/GenericException.st	Wed Dec 02 21:30:55 2009 +0000
@@ -1114,6 +1114,32 @@
     ^ self raise
 ! !
 
+!GenericException methodsFor:'Compatibility-Dolphin'!
+
+stackTrace:numberOfFrames
+    "return a backtrace information string"
+
+    |con|
+
+    con := suspendedContext.
+    ^ ((1 to:numberOfFrames)
+        collect:[:idx |
+            |s|
+
+            s := con printString.
+            con := con sender.
+            s
+        ]) asStringWith:Character cr.
+
+    "
+     Error handle:[:ex |
+        (ex stackTrace:20) inspect.
+     ] do:[
+        self error
+     ].
+    "
+! !
+
 !GenericException methodsFor:'accessing'!
 
 catchInDebugger
@@ -2100,13 +2126,14 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Id: GenericException.st 10477 2009-11-05 14:41:30Z vranyj1 $'
+    ^ '$Id: GenericException.st 10480 2009-12-02 21:30:55Z vranyj1 $'
 !
 
 version_CVS
-    ^ '$Id: GenericException.st 10477 2009-11-05 14:41:30Z vranyj1 $'
+    ^ '§Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.123 2009/11/19 11:52:09 cg Exp §'
 ! !
 
 GenericException initialize!
 
 
+