diff --git a/asdf.lisp b/asdf.lisp
index fddbfe9754536389c7fb90727d98a62964f63569..ecaad579e2cc97dd824d570af52647a04545fcf5 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -73,7 +73,7 @@
 (eval-when (:load-toplevel :compile-toplevel :execute)
   (defvar *asdf-version* nil)
   (defvar *upgraded-p* nil)
-  (let* ((asdf-version "2.010.3") ;; bump this version when you modify this file.
+  (let* ((asdf-version "2.010.4") ;; bump this version when you modify this file.
          (existing-asdf (fboundp 'find-system))
          (existing-version *asdf-version*)
          (already-there (equal asdf-version existing-version)))
@@ -546,9 +546,8 @@ pathnames."
     :append (list k v)))
 
 (defun* getenv (x)
-  (#+abcl ext:getenv
+  (#+(or abcl clisp) ext:getenv
    #+allegro sys:getenv
-   #+clisp ext:getenv
    #+clozure ccl:getenv
    #+(or cmu scl) (lambda (x) (cdr (assoc x ext:*environment-list* :test #'string=)))
    #+ecl si:getenv
diff --git a/build.xcvb b/build.xcvb
index bfe06b719ffeb669387e672929eed900d40b9669..76e4f8e3f157787c6cda24aafd2e28416b379668 100644
--- a/build.xcvb
+++ b/build.xcvb
@@ -6,4 +6,5 @@
   :description "ASDF"
   :long-description "Another System Definition Facility."
   :depends-on ("asdf" (:when (:featurep :ecl) "asdf-ecl"))
+  :supersedes-asdf ("asdf")
   :build-image nil))