diff --git a/tools/clxcom.lisp b/tools/clxcom.lisp
index 2979da4d47fd5f639c233c91a6327547a91bc6fb..2c18d30a3f5a2e55afa3f82c68765a22e579da19 100644
--- a/tools/clxcom.lisp
+++ b/tools/clxcom.lisp
@@ -64,7 +64,7 @@
 	     (namestring
 	      (truename
 	       (make-pathname
-		:name x
+		:defaults x
 		:type (c:backend-fasl-file-type c:*target-backend*)))))
 	 '(
 	   "target:clx/package"