From 2d12ca4a62033d41561cf8f4a202f182310f8fed Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Thu, 24 Apr 2008 22:55:40 +0000 Subject: [PATCH] Display correction svn: r9466 --- collects/test-engine/test-display.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))))