diff --git a/test/test-utilities.script b/test/test-utilities.script
index e8ef0b4357e225c34954c0b5685d59c25d0a8914..fdaba0a505bf0f700d660048b0468ddd9eec0653 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -63,10 +63,12 @@
                    (assert-pathname-equal true dir)
                    (setf true dir)))
              (assert-pathname-equal true (truename (ensure-directory-pathname file)))
-             (assert-pathname-equal true (nest #+(and clisp windows) (ensure-directory-pathname)
+             (assert-pathname-equal true (nest #+(and clisp os-windows) (ensure-directory-pathname)
                                                (truename* file)))
-             (assert-pathname-equal true (nest #+(or allegro (and clisp windows)) (ensure-directory-pathname)
-                                               (probe-file* file :truename t)))
+             (assert-pathname-equal true
+                                    (let ((path (probe-file* file :truename t)))
+                                      #+(or allegro (and clisp os-windows)) (ensure-directory-pathname path)
+                                      #-(or allegro (and clisp os-windows)) path))
              (assert-pathname-equal true (if-let (x (probe-file* file))
                                            (ensure-absolute-pathname (ensure-directory-pathname x) 'get-pathname-defaults))))
            (check-directory-doesnt-exist (file)