diff --git a/asdf.lisp b/asdf.lisp
index f39e684144556528fb7f6fd5762b155fbb66317f..1b686ace021a08f7401337c0993e1730a59e0505 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,4 +1,4 @@
-;;; This is asdf: Another System Definition Facility.  $Revision: 1.46 $
+;;; This is asdf: Another System Definition Facility.  $Revision: 1.47 $
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome: please mail to
 ;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -88,7 +88,7 @@
 (in-package #:asdf)
 
 ;;; parse the cvs revision into something that might be vaguely useful.  
-(defvar *asdf-revision* (let* ((v "$Revision: 1.46 $")
+(defvar *asdf-revision* (let* ((v "$Revision: 1.47 $")
 			       (colon (position #\: v))
 			       (dot (position #\. v)))
 			  (and v colon dot 
@@ -926,8 +926,10 @@ synchronously execute the result using a Bourne-compatible shell, with
 output to *trace-output*.  Returns the shell's exit code."
   (let ((command (apply #'format nil control-string args)))
     (format *trace-output* "; $ ~A~%" command)
-    (ccl:run-program "/bin/sh" (list "-c" command)
-		     :input nil :output *trace-output* :wait t)))
-
+    (nth-value 1
+       (ccl:external-process-status
+	(ccl:run-program "/bin/sh" (list "-c" command)
+			 :input nil :output *trace-output* :wait t)))))
+  
 
 (pushnew :asdf *features*)
diff --git a/debian/changelog b/debian/changelog
index 88aa9312fede4e2ec8b2e926db1a5497fc97f74b..056cc75eecbf22a3a357cb46e57aa6296708be29 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-asdf (1.47) unstable; urgency=low
+
+  * Return numeric exit status for openmcl's run-shell-command
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri, 20 Sep 2002 10:22:36 -0600
+
 cl-asdf (1.46) unstable; urgency=low
 
   * New upstream version, adds run-shell-command for openmcl