diff --git a/asdf.lisp b/asdf.lisp
index 47fd8a367dc7d991168ba4c4a8e5b7f70c3888eb..a232b782a12905a362113c3c69071f22114542fe 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -72,7 +72,7 @@
   (defvar *asdf-version* nil)
   (defvar *upgraded-p* nil)
   (let* ((asdf-version ;; the 1+ helps the version bumping script discriminate
-          (subseq "VERSION:2.127" (1+ (length "VERSION"))))
+          (subseq "VERSION:2.128" (1+ (length "VERSION"))))
          (existing-asdf (fboundp 'find-system))
          (existing-version *asdf-version*)
          (already-there (equal asdf-version existing-version)))
@@ -864,7 +864,8 @@ with given pathname and if it exists return its truename."
                 error-name error-pathname error-condition
                 duplicate-names-name
                 error-component error-operation
-                module-components module-components-by-name)
+                module-components module-components-by-name
+                circular-dependency-components)
          (ftype (function (t t) t) (setf module-components-by-name)))