diff --git a/asdf-ops.lisp b/asdf-ops.lisp
index d6af39c2a0461889e58a48f98806f2fab51a21b6..74af17a75b8fbd22149a780af18ba6e0ea898e8e 100644
--- a/asdf-ops.lisp
+++ b/asdf-ops.lisp
@@ -68,7 +68,7 @@ to the base of the system."
   (let ((source (component-pathname comp)))
     (operating-on-asdf-component-constituent (comp)
       ;; do NOT grovel the same file more than once
-      (unless (component-operation-time 'load-source-op comp)
+      (unless (asdf::component-operation-time 'load-source-op comp)
         (#+sbcl fine-grain-instrumented-load #-sbcl instrumented-load
          source)))))