diff --git a/asdf.lisp b/asdf.lisp
index 40d6da6c4ee7d8c8ff42b95ac78dbcb92b742b4c..ecfff9dd7ee96ad12aa4ee254889a6e7ee68e8aa 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -41,11 +41,19 @@
 ;;;
 ;;; -- LICENSE END
 
-;;; the problem with writing a defsystem replacement is bootstrapping:
-;;; we can't use defsystem to compile it.  Hence, all in one file
+;;; The problem with writing a defsystem replacement is bootstrapping:
+;;; we can't use defsystem to compile it.  Hence, all in one file.
 
 #+xcvb (module ())
 
+(cl:in-package :cl-user)
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (let ((sym (find-symbol "*ASDF-REVISION*" :asdf)))
+    (when sym
+      (unexport sym)
+      (unintern sym))))
+
 (defpackage #:asdf
   (:documentation "Another System Definition Facility")
   (:export #:defsystem #:oos #:operate #:find-system #:run-shell-command
@@ -165,7 +173,7 @@
 ;;;;
 (defparameter *asdf-version*
   ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
-  (subseq "VERSION:1.591" (1+ (length "VERSION"))))
+  (subseq "VERSION:1.592" (1+ (length "VERSION"))))
 
 (defun asdf-version ()
   *asdf-version*)