diff --git a/component.lisp b/component.lisp
index 28cc30d68993dad36f674dfccd5c437e666b3164..83f13edecdca8ae62c119c2a18a8c1b1217816a8 100644
--- a/component.lisp
+++ b/component.lisp
@@ -288,7 +288,7 @@ another pathname in a degenerate way."))
   (defmethod version-satisfies ((c component) 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))
+        (warn "Requested version ~S but ~S has no version" version c))
       (return-from version-satisfies t))
     (version-satisfies (component-version c) version))
 
diff --git a/test/test-utilities.script b/test/test-utilities.script
index b24d52bca6cc1801e2e9e1e0db5b49d66d0b8b86..32243e4ec7b6aa0a76cdb521a53170f61eeb0207 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -35,7 +35,7 @@
 (handler-case (version-satisfies (find-system :test-asdf) "666")
   (simple-warning (c)
     (assert-equal (simple-condition-format-control c)
-                  "Requested version ~S but component ~S has no version"))
+                  "Requested version ~S but ~S has no version"))
   (:no-error (x)
     (error "version-satisfies must warn when given component without version")))
 (assert (version<= "2.0" (asdf-version)))