diff --git a/src/Semantic/Util.hs b/src/Semantic/Util.hs
index 7cead35a1..2110f8e76 100644
--- a/src/Semantic/Util.hs
+++ b/src/Semantic/Util.hs
@@ -83,7 +83,7 @@ evaluateFiles :: forall term effects
               -> IO (Final effects Value)
 evaluateFiles parser paths = do
   entry:xs <- traverse (parseFile parser) paths
-  let rootDir = dropFileName (blobPath (fst entry))
+  let rootDir = dropFileName (head paths)
   pure . runAnalysis @(Evaluating term Value) . withModules (modulesForBlobs (Just rootDir) xs) $ evaluateModule (snd entry)
 
 modulesForBlobs :: Maybe FilePath -> [(Blob, term)] -> [Module term]