diff --git a/tests/trac.lisp b/tests/trac.lisp
index a2a1e35dd2d3e58a6827d030d4a20cdd914f6c6d..64cbe81a2ae43cdc78aaf68a9f29b1cb4166d203 100644
--- a/tests/trac.lisp
+++ b/tests/trac.lisp
@@ -207,10 +207,11 @@
 				    (replace s s :start2 100 :end2 105)))
 			 (copy-seq "1234567890"))))
 
+(setf (logical-pathname-translations "trac69")
+      '(("**;*.*.*" "/tmp/**/*.*")))
+
 (define-test trac.69
   (:tag :trac)
-  (setf (logical-pathname-translations "trac69")
-	'(("**;*.*.*" "/tmp/**/*.*")))
   (assert-error 'lisp::namestring-parse-error
 		(let ((*default-pathname-defaults* #p"trac69:"))
 		  (pathname "/tmp/bar.lisp"))))