diff --git a/tests/trac.lisp b/tests/trac.lisp
index 1fd0683595b1cc5c98b8b6fd2fde0a91cfe7c908..dbe874185f860eae6f1ab942a8f6c09da04cf1fd 100644
--- a/tests/trac.lisp
+++ b/tests/trac.lisp
@@ -59,7 +59,7 @@
 (define-test trac.50
   (:tag :trac)
   (assert-equal "#P(:DIRECTORY (:ABSOLUTE \"tmp\" \"\" \"a\" \"\" \"b\"))"
-		(princ (make-pathname :directory '(:absolute "tmp" "" "a" "" "b")))))
+		(princ-to-string (make-pathname :directory '(:absolute "tmp" "" "a" "" "b")))))
 
 (defparameter *trac.70* (make-string 40 :initial-element #\A))