diff --git a/asdf.lisp b/asdf.lisp
index 876823cd5e955d138f79725498319864121efbab..1e0ff5071e73200cbc5cb0e4728a9afeed31dfb9 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -2003,6 +2003,8 @@ output to `*verbose-out*`.  Returns the shell's exit code."
     (system:call-system-showing-output
      command
      :shell-type "/bin/sh"
+     :show-cmd nil
+     :prefix ""
      :output-stream *verbose-out*)
 
     #+clisp                     ;XXX not exactly *verbose-out*, I know
diff --git a/test/script-support.lisp b/test/script-support.lisp
index 37c63eb8684e2ebaaf865cdbac11f5ae2126ab2a..b2d0a8fd4a0fe58905941f67d6e16ba0db03db02 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -23,7 +23,7 @@
   #+gcl
   (lisp:quit code)
   #+lispworks
-  (lispworks:quit :status code :confirm nil :return nil :ignore-errors-p t)
+  (lispworks:quit :status return :confirm nil :return nil :ignore-errors-p t)
   #+(or openmcl mcl)
   (ccl::quit return)
   #+sbcl