diff --git a/src/HSFM/FileSystem/FileOperations.hs b/src/HSFM/FileSystem/FileOperations.hs
index 32d7b93..c22a546 100644
--- a/src/HSFM/FileSystem/FileOperations.hs
+++ b/src/HSFM/FileSystem/FileOperations.hs
@@ -174,7 +174,7 @@ copyDir cm from@(_ :/ Dir fromn FileInfo{ fileMode = fmode })
         top      = fullPath to
         destdirp = top P.</> fromn
     throwDestinationInSource fromp destdirp
-    throwSameFile fromp destdirp
+    throwSameFile fromp top
     throwCantOpenDirectory fromp
     throwCantOpenDirectory top