diff --git a/test/test-utilities.script b/test/test-utilities.script
index 3f5f267d918eb84806e7592cedc7710b81b97323..9757f7dfc65bc97d18b76fb644fecf20dba645e3 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -2,9 +2,12 @@
 
 (defun getcwd-from-run-program ()
   (uiop:parse-native-namestring
-   (run-program
-    (os-cond ((os-unix-p) '("pwd" "-P")) ((os-windows-p) "echo %cd%"))
-    :output '(:string :stripped t))
+   (nest
+    ;; TODO: fix run-program to use POWERSHELL.EXE rather than CMD, and remove this kluge.
+    #+os-windows (string-trim " ")
+    (run-program
+     (os-cond ((os-unix-p) '("pwd" "-P")) ((os-windows-p) "echo %cd%"))
+     :output '(:string :stripped t)))
    :ensure-directory t))
 
 (let ((asdf-directory (truename *asdf-directory*)))