diff --git a/asdf.lisp b/asdf.lisp
index bdab44dfc8a1547a9eef28914981f110a0ddb993..5e693b627d148540101802450bbee8a7299186d0 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1997,6 +1997,8 @@ output to `*verbose-out*`.  Returns the shell's exit code."
     (system:call-system-showing-output
      command
      :shell-type "/bin/sh"
+     :prefix ""
+     :show-cmd nil
      :output-stream *verbose-out*)
 
     #+clisp                     ;XXX not exactly *verbose-out*, I know
diff --git a/debian/changelog b/debian/changelog
index 7b4533bce3b9112c14d4ad8c5fca16d2c7ecab90..ab2d80061b1fdc3bdd39cd140ba1df3b63717ac9 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -2,8 +2,10 @@ cl-asdf (2:1.625-1) UNRELEASED; urgency=low
 
   * New upstream release. 
   * Added dh_installinfo for info files. (Closes: #560290)
+  * Incorporated run-shell-command patch for LispWorks. Thanks tianchun!
+    (Closes: #457919)
 
- -- Peter Van Eynde <pvaneynd@debian.org>  Wed, 24 Feb 2010 21:34:25 +0100
+ -- Peter Van Eynde <pvaneynd@debian.org>  Wed, 24 Feb 2010 21:38:15 +0100
 
 cl-asdf (2:1.502-1) unstable; urgency=low