--- a/TestResultReporter.st	Thu Oct 25 00:44:32 2012 +0200
+++ b/TestResultReporter.st	Thu Oct 25 01:02:15 2012 +0200
@@ -549,12 +549,12 @@
 
         testClass := Smalltalk classNamed:testClassName.
         testClass notNil ifTrue:[
-            testClassSourceFile := testClass classFilename.
+            testClassSourceFile := testClass classFilename asFilename pathName.
         ].
         testClassSourceFile notNil ifTrue:[
             stream
                 nextPutAll:'    <system-out>'; cr;
-                nextPutAll:('[[ATTACHMENT|%1]]' bindWith:testClassSourceFile pathName); cr;
+                nextPutAll:('[[ATTACHMENT|%1]]' bindWith:testClassSourceFile); cr;
                 nextPutAll:'    </system-out>'; cr.
         ].
         stream
@@ -802,11 +802,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.38 2012-10-24 22:44:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.39 2012-10-24 23:02:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.38 2012-10-24 22:44:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.39 2012-10-24 23:02:15 cg Exp $'
 !
 
 version_SVN