diff --git a/component.lisp b/component.lisp
index 084d61bd7bbc6a9715992e5fea8b6e3e678f4532..28cc30d68993dad36f674dfccd5c437e666b3164 100644
--- a/component.lisp
+++ b/component.lisp
@@ -286,7 +286,7 @@ another pathname in a degenerate way."))
 ;;;; version-satisfies
 (with-upgradability ()
   (defmethod version-satisfies ((c component) version)
-    (unless (and version (slot-boundp c 'version))
+    (unless (and version (slot-boundp c 'version) (component-version c))
       (when version
         (warn "Requested version ~S but component ~S has no version" version c))
       (return-from version-satisfies t))