diff --git a/src/heroku.lisp b/src/heroku.lisp
index 267d8a4..39f0d9b 100644
--- a/src/heroku.lisp
+++ b/src/heroku.lisp
@@ -7,7 +7,7 @@
 ;;; Called from an application's heroku-setup.lisp
 ;;; Directory is a relative path from the app root.
 (defun heroku-install-wupub-files (&optional (directory '("wupub")))
-  (asdf:run-shell-command
+  (uiop:run-program
    (format nil "cp -r ~Apublic ~A"
 	   (namestring (asdf:component-pathname (asdf:find-system :wuwei)))
 	   (namestring (make-pathname :directory (append cl-user::*build-dir* directory))) 
diff --git a/src/net-utils.lisp b/src/net-utils.lisp
index 7972309..ef2eb77 100644
--- a/src/net-utils.lisp
+++ b/src/net-utils.lisp
@@ -13,7 +13,7 @@
 	(url (if query
 		 (string+ url "?" (query-to-form-urlencoded query))
 		 url)))
-    (unless (zerop (asdf:run-shell-command "wget -c \"~A\" -O ~A" url (pathname temp-file)))
+    (unless (zerop (uiop:run-program (format nil "wget -c \"~A\" -O ~A" url (pathname temp-file))))
       (error "Shell command failed"))
     (file-to-string temp-file)))