diff --git a/basis/io/directories/directories.factor b/basis/io/directories/directories.factor
index 337a3d2840..084facc21b 100644
--- a/basis/io/directories/directories.factor
+++ b/basis/io/directories/directories.factor
@@ -65,7 +65,7 @@ HOOK: move-file io-backend ( from to -- )
     to-directory move-file ;
 
 : move-files-into ( files to -- )
-    to-directory '[ _ move-file ] each ;
+    '[ _ move-file-into ] each ;
 
 ! Copying files
 HOOK: copy-file io-backend ( from to -- )
@@ -82,7 +82,7 @@ M: object copy-file
     to-directory copy-file ;
 
 : copy-files-into ( files to -- )
-    to-directory '[ _ copy-file ] each ;
+    '[ _ copy-file-into ] each ;
 
 {
     { [ os unix? ] [ "io.directories.unix" require ] }
diff --git a/basis/io/directories/hierarchy/hierarchy.factor b/basis/io/directories/hierarchy/hierarchy.factor
index 96b2c435b7..b39587af2e 100644
--- a/basis/io/directories/hierarchy/hierarchy.factor
+++ b/basis/io/directories/hierarchy/hierarchy.factor
@@ -44,4 +44,4 @@ DEFER: copy-trees-into
     to-directory copy-tree ;
 
 : copy-trees-into ( files to -- )
-    to-directory '[ _ copy-tree ] each ;
+    '[ _ copy-tree-into ] each ;