--- a/TestResultStX.st	Wed Jul 09 22:27:25 2014 +0200
+++ b/TestResultStX.st	Fri Jul 11 02:23:44 2014 +0200
@@ -92,7 +92,7 @@
         cls := method mclass.
         cls notNil ifTrue:[
             relPath := cls package copyReplaceAll:$: with:$/.
-            relPath := relPath copyReplaceAll:$\ with:$/.
+            relPath := relPath asUnixFilenameString.
             relPath := (relPath asFilename construct:cls theNonMetaclass classFilename) name.
             classSourceFile := relPath.
 
@@ -252,10 +252,10 @@
 !TestResultStX class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.14 2013-11-12 23:10:09 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.15 2014-07-11 00:23:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.14 2013-11-12 23:10:09 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.15 2014-07-11 00:23:44 cg Exp $'
 ! !