diff --git a/scripts/subcorpus/getFiles.hs b/scripts/subcorpus/getFiles.hs
index ca99a95e750055bc7aedc50f60b37827e93f33f9..de0838edf66aa85f60ab5cfce8ceaca67d422461 100755
--- a/scripts/subcorpus/getFiles.hs
+++ b/scripts/subcorpus/getFiles.hs
@@ -7,8 +7,8 @@ import System.FilePath ((</>), takeDirectory)
 import System.Posix.Files (createLink)
 import System.Script (syntax, try)
 
-move :: String -> FilePath -> FilePath -> PrimaryKey -> IO ()
-move extension sourceRoot targetRoot article = do
+link :: String -> FilePath -> FilePath -> PrimaryKey -> IO ()
+link extension sourceRoot targetRoot article = do
   fileExists <- doesFileExist sourceFile
   if fileExists
   then do
@@ -25,5 +25,5 @@ main :: IO ()
 main = getArgs >>= run
   where
     run [files, extension, source, target] =
-      try (readNamedTsv files) >>= mapM_ (move extension source target)
+      try (readNamedTsv files) >>= mapM_ (link extension source target)
     run _ = syntax "FILES.tsv EXTENSION SOURCE_DIRECTORY TARGET_DIRECTORY"