diff --git a/src/compiler/GF/Compile/CheckGrammar.hs b/src/compiler/GF/Compile/CheckGrammar.hs
index d924e413e..5b707157c 100644
--- a/src/compiler/GF/Compile/CheckGrammar.hs
+++ b/src/compiler/GF/Compile/CheckGrammar.hs
@@ -53,7 +53,8 @@ checkModule opts sgr mo@(m,mi) = do
                              abs <- lookupModule gr a
                              checkCompleteGrammar opts gr (a,abs) mo
           _            -> return mo
-  infoss <- topoSortJments2 mo
+  infoss <- checkIn (ppLocation (msrc mi) NoLoc <> colon) $
+            topoSortJments2 mo
   foldM updateCheckInfos mo infoss
   where
     updateCheckInfos mo = fmap (foldl update mo) . parallelCheck . map check