1 files changed, 1 insertions, 1 deletions
diff --git a/Limit.hs b/Limit.hs
index dc38b172d..4bd5dd59e 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -104,7 +104,7 @@ matchMagic (Just magic) glob = Right $ const go
  	cglob = compileGlob glob CaseSensative -- memoized
 	go (MatchingKey _) = pure False
 	go (MatchingFile fi) = liftIO $ catchBoolIO $
-		matchGlob cglob <$> magicFile magic (matchFile fi)
+		matchGlob cglob <$> magicFile magic (currFile fi)
 	go (MatchingInfo _ _ _ mimeval) = matchGlob cglob <$> getInfo mimeval
 matchMagic Nothing _ = Left "unable to load magic database; \"mimetype\" cannot be used"
 #endif