diff --git a/test/test-program.script b/test/test-program.script
index 7a09a78a15614b385da35585406324e2f081bd07..70d51ee32119e57d9f954b8c371fb0a6bccb5247 100644
--- a/test/test-program.script
+++ b/test/test-program.script
@@ -36,6 +36,7 @@
      (symbol-call
       :lisp-invocation :lisp-invocation-arglist
       #+allegro :lisp-path #+allegro *lisp*
+      :cross-compile nil
       :load (native-namestring (subpathname *test-directory* "make-hello-world.lisp"))
       :eval (format nil "(asdf-test::make-hello-~a)" kind))
      :input nil :ignore-error-status t
@@ -61,6 +62,7 @@
      (symbol-call
       :lisp-invocation :lisp-invocation-arglist
       #+allegro :lisp-path #+allegro *lisp*
+      :cross-compile nil
       :image-path (native-namestring img)
       :eval "(uiop:restore-image :entry-point 'hello:entry-point :lisp-interaction nil)")
      :output :lines :error-output t))
@@ -74,6 +76,7 @@
      :lisp-invocation :lisp-invocation-arglist
      #+allegro :lisp-path #+allegro *lisp*
      :image-path (native-namestring img)
+     :cross-compile nil
      :eval "(uiop:restore-image :entry-point 'hello:entry-point :lisp-interaction nil)"
      :arguments '("a" "b c" "d"))
     :output :lines :error-output t)