diff --git a/collects/test-engine/test-display.scm b/collects/test-engine/test-display.scm
index 20290858d1..c53ae523f0 100644
--- a/collects/test-engine/test-display.scm
+++ b/collects/test-engine/test-display.scm
@@ -369,7 +369,7 @@
           (string-append 
            (cond
              [(symbol? (src-file src)) (string-append " At ")]
-             ((path? (src-file src)) (string-append " In " (src-file src) " at "))
+             ((path? (src-file src)) (string-append " In " (path->string (src-file src)) " at "))
              ((is-a? (src-file src) editor<%>) " At "))
            "line " (number->string (src-line src))
            " column " (number->string (src-col src)))))