gistfile1.diff

diff --git a/src/Compiler/Settings.hs b/src/Compiler/Settings.hs
index 55c3472..f340cee 100644
--- a/src/Compiler/Settings.hs
+++ b/src/Compiler/Settings.hs
@@ -50,3 +50,6 @@ newGhcjsEnv = GhcjsEnv <$> newMVar M.empty
 buildingDebug :: DynFlags -> Bool
 buildingDebug dflags = WayDebug `elem` ways dflags
 
+buildingProf :: DynFlags -> Bool
+buildingProf dflags = WayProf `elem` ways dflags
+
diff --git a/src/Gen2/Compactor.hs b/src/Gen2/Compactor.hs
index 56e38ab..d0de635 100644
--- a/src/Gen2/Compactor.hs
+++ b/src/Gen2/Compactor.hs
@@ -95,7 +95,7 @@ renameInternals settings dflags cs0 stats0 = (cs, stats, meta)
     ((stats, meta), cs) = runState renamed cs0
     renamed :: State CompactorState ([JStat], JStat)
     renamed
-      | buildingDebug dflags = do
+      | buildingDebug dflags || buildingProf dflags = do
         cs <- get
         let renamedStats = map (\(s,_,_) -> s & identsS %~ lookupRenamed cs) stats0
             statics      = map (renameStaticInfo cs)  $ concatMap (\(_,_,x) -> x) stats0