diff --git a/src/IO/File.hs b/src/IO/File.hs
index fe4de75..a496456 100644
--- a/src/IO/File.hs
+++ b/src/IO/File.hs
@@ -116,6 +116,7 @@ copyDir cm from@(Dir fn _ _, _) to@(Dir {}, _) = do
   dirSanityThrow fromp
   dirSanityThrow top
   throwDestinationInSource fromp top
+  throwSameFile fromp destdir
 
   createDestdir destdir