diff --git a/test/test-utilities.script b/test/test-utilities.script
index a1cb12e3ae80ec229b91d2eb3e288fe15dfbc70a..3f5f267d918eb84806e7592cedc7710b81b97323 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -3,7 +3,7 @@
 (defun getcwd-from-run-program ()
   (uiop:parse-native-namestring
    (run-program
-    (os-cond ((os-unix-p) "pwd") ((os-windows-p) "echo %cd%"))
+    (os-cond ((os-unix-p) '("pwd" "-P")) ((os-windows-p) "echo %cd%"))
     :output '(:string :stripped t))
    :ensure-directory t))