--- a/TestResultStX.st	Wed Nov 07 02:08:39 2012 +0100
+++ b/TestResultStX.st	Wed Nov 07 02:09:14 2012 +0100
@@ -93,7 +93,7 @@
         cls notNil ifTrue:[
             relPath := cls package copyReplaceAll:$: with:$/.
             relPath := relPath copyReplaceAll:$\ with:$/.
-            relPath := (relPath asFilename construct:cls classFilename) name.
+            relPath := (relPath asFilename construct:cls theNonMetaclass classFilename) name.
 
             classSourceFile := Smalltalk getPackageFileName:relPath.
             classSourceFile isNil ifTrue:[    
@@ -148,12 +148,12 @@
     "Created: / 16-08-2011 / 17:36:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-rememberException:detail
+rememberException:ex
     "common for failure and error:
      called when a test fails. testCase is the failed 
-     testcase, detail is platform specific object describing 
+     testcase, ex is platform specific object describing 
      the failure. Actually, on all platforms exeptt GemStone, 
-     detail is an instance of an exception that caused the failure"
+     ex is an instance of an exception that caused the failure"
 
     |backtrace|
 
@@ -170,7 +170,7 @@
                         "could use printAllOn:s, but noone is interested in contexts above the
                          testcase's runtest context"
                         topReached := false.
-                        con := detail suspendedContext.
+                        con := ex suspendedContext.
                         [ 
                             con notNil and:[topReached not]
                         ] whileTrue:[
@@ -183,8 +183,8 @@
                      ].
 
         outcome exceptionDetail:(Dictionary new
-                                    at:#exception put:detail signal;
-                                    at:#description put:detail description;
+                                    at:#exception put:ex signal;
+                                    at:#description put:ex description;
                                     at:#backtrace put:backtrace;
                                     yourself).
         ^ self.
@@ -197,7 +197,6 @@
 !
 
 rememberOutput: aString
-
     outcome collectedOutput: aString
 
     "Created: / 16-08-2011 / 18:18:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -236,9 +235,9 @@
 !TestResultStX class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.6 2012-11-06 21:14:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.7 2012-11-07 01:09:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.6 2012-11-06 21:14:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.7 2012-11-07 01:09:14 cg Exp $'
 ! !