diff --git a/test/test-utilities.script b/test/test-utilities.script
index b0c49664b9a2da1a0469b79649d05ddb0e14aa39..a1cb12e3ae80ec229b91d2eb3e288fe15dfbc70a 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -7,15 +7,17 @@
     :output '(:string :stripped t))
    :ensure-directory t))
 
-(chdir *asdf-directory*)
-(assert-pathname-equal *asdf-directory* (getcwd))
-(assert-pathname-equal *asdf-directory* (getcwd-from-run-program))
-(assert (probe-file* "asdf.asd"))
+(let ((asdf-directory (truename *asdf-directory*)))
+  (chdir asdf-directory)
+  (assert-pathname-equal asdf-directory (getcwd))
+  (assert-pathname-equal asdf-directory (getcwd-from-run-program))
+  (assert (probe-file* "asdf.asd")))
 
-(chdir *test-directory*)
-(assert-pathname-equal *test-directory* (getcwd))
-(assert-pathname-equal *test-directory* (getcwd-from-run-program))
-(assert (probe-file* "test-utilities.script"))
+(let ((test-directory (truename *test-directory*)))
+  (chdir test-directory)
+  (assert-pathname-equal test-directory (getcwd))
+  (assert-pathname-equal test-directory (getcwd-from-run-program))
+  (assert (probe-file* "test-utilities.script")))
 
 (assert
  (every #'directory-pathname-p