--- a/TestResultStX.st	Wed Nov 07 15:19:46 2012 +0100
+++ b/TestResultStX.st	Wed Nov 07 18:04:12 2012 +0100
@@ -94,11 +94,12 @@
             relPath := cls package copyReplaceAll:$: with:$/.
             relPath := relPath copyReplaceAll:$\ with:$/.
             relPath := (relPath asFilename construct:cls theNonMetaclass classFilename) name.
+            classSourceFile := relPath.
 
-            classSourceFile := Smalltalk getPackageFileName:relPath.
-            classSourceFile isNil ifTrue:[    
-                classSourceFile := self class sourceFilenameOfClass:cls.
-            ].
+"/            classSourceFile := Smalltalk getPackageFileName:relPath.
+"/            classSourceFile isNil ifTrue:[    
+"/                classSourceFile := self class sourceFilenameOfClass:cls.
+"/            ].
             classSourceFile notNil ifTrue:[
                 method sourcePosition notNil ifTrue:[
                     "/ sigh - we have the lineNumber within the method,
@@ -235,9 +236,9 @@
 !TestResultStX class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.7 2012-11-07 01:09:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.8 2012-11-07 17:04:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.7 2012-11-07 01:09:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.8 2012-11-07 17:04:12 cg Exp $'
 ! !