diff --git a/find-system.lisp b/find-system.lisp
index e754c991bfb10447b5e1d678b2366a2e11805342..084d133fa2f1977364d64f68c427fc55882b614f 100644
--- a/find-system.lisp
+++ b/find-system.lisp
@@ -127,7 +127,7 @@ or NIL if not found."
   (defvar *preloaded-systems* (make-hash-table :test 'equal)
     "Registration table for preloaded systems.")
 
-  (declaim (ftype (function (component) t) mark-component-preloaded)) ; defined in asdf/operate
+  (declaim (ftype (function (t) t) mark-component-preloaded)) ; defined in asdf/operate
 
   (defun make-preloaded-system (name keys)
     "Make a preloaded system of given NAME with build information from KEYS"