X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-tests.lisp;h=bcd090db8a3d17dd649c3b48607ff8c8c5c7b5e4;hb=9373c1691aee82e4e21379b85400c3ea363adf47;hp=ae0fee2618d17f655f94d808117f3b9608967ebb;hpb=24e173765bf0859fd8ed059668369c7ffc26c269;p=sbcl.git

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index ae0fee2..bcd090d 100644
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -195,7 +195,7 @@
 (defun sh-test (file)
   ;; What? No SB-POSIX:EXECV?
   `(let ((process (sb-ext:run-program "/bin/sh"
-                                      (list (namestring ,file))
+                                      (list (native-namestring ,file))
                                       :output *error-output*)))
      (sb-ext:quit :unix-status (process-exit-code process))))