diff --git a/asdf-classes.lisp b/asdf-classes.lisp
index 00574d016884a8034d42bd1a3e260fbd88554ae8..032073393a66b75cafe82d18ddc47d47e04853de 100644
--- a/asdf-classes.lisp
+++ b/asdf-classes.lisp
@@ -43,7 +43,7 @@
              `(,initarg ,(slot-value comp slot-name)))))
     `(,@(call-next-method)
         ,@(when (asdf::around-compile-hook comp)
-            `(:around-compile ,(escaped-around-compile comp)))
+            `(:around-compile ,(escaped-around-compile-hook comp)))
 	`(:encoding ,(component-encoding comp))
         ,@(slot-when-bound 'translated-name :translated-name)
         ,@(slot-when-bound 'translated-pathname :translated-pathname-form))))
diff --git a/asdf-dependency-grovel.asd b/asdf-dependency-grovel.asd
index f349d65b0d53638425a75118738deb941b0d9a88..2899f32760d85ce7dd2d38446ecd3c0b10e8d336 100644
--- a/asdf-dependency-grovel.asd
+++ b/asdf-dependency-grovel.asd
@@ -41,7 +41,7 @@ based on which compilation can be parallelized.
 Based on an analysis with form granularity,
 it can output a summary from which you can untangle
 the circularities in your build."
-  :version "1.106"
+  :version "1.107"
   :depends-on ((:version :asdf "2.21")) ;; for :encoding support
   :components ((:file "package")
                (:file "variables" :depends-on ("package"))