diff --git a/asdf.lisp b/asdf.lisp
index ea289eb416e8334f7141a878e2787974fdc0914c..40b768c6e4cfacad0eb0c3e3431cdf6fd5ab9c42 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -416,7 +416,11 @@ system."))
 			   operation
 			   (make-sub-operation operation required-op)))
 		   (dep-c (or (find-component
-			       (component-parent c) required-c required-v)
+			       (component-parent c)
+			       ;; XXX tacky.  really we should build the
+			       ;; in-order-to slot with canonicalized
+			       ;; names instead of coercing this late
+			       (coerce-name required-c) required-v)
 			      (error 'missing-dependency :required-by c
 				     :version required-v
 				     :requires required-c))))