diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 458a9145a6..f397af606b 100755
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -4,6 +4,7 @@ USING: io.backend io.files.private io hashtables kernel math
 memory namespaces sequences strings assocs arrays definitions
 system combinators splitting sbufs continuations io.encodings
 io.encodings.binary init accessors ;
+USE: tools.walker
 IN: io.files
 
 HOOK: (file-reader) io-backend ( path -- stream )
@@ -267,6 +268,7 @@ M: object copy-file
 DEFER: copy-tree-into
 
 : copy-tree ( from to -- )
+    normalize-pathname
     over link-info type>>
     {
         { +symbolic-link+ [ copy-link ] }