diff --git a/compiler/iface/LoadIface.hs b/compiler/iface/LoadIface.hs
index 497ddfc1798b299bfd288cb5ffe6abf8d2d5338f..16963dcb940f74df0c4b05cd933052a496d87017 100644
--- a/compiler/iface/LoadIface.hs
+++ b/compiler/iface/LoadIface.hs
@@ -399,7 +399,8 @@ loadInterface doc_str mod from
        -- Redo search for our local hole module
        loadInterface doc_str (mkModule (thisPackage dflags) (moduleName mod)) from
   | otherwise
-  = do  {       -- Read the state
+  = withTiming getDynFlags (text "loading interface") (pure ()) $
+    do  {       -- Read the state
           (eps,hpt) <- getEpsAndHpt
         ; gbl_env <- getGblEnv