diff --git a/collects/test-engine/test-display.scm b/collects/test-engine/test-display.scm
index 598a47b90c..06d6e0e4cf 100644
--- a/collects/test-engine/test-display.scm
+++ b/collects/test-engine/test-display.scm
@@ -149,7 +149,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)))))