diff --git a/ghc-vis.cabal b/ghc-vis.cabal
--- a/ghc-vis.cabal
+++ b/ghc-vis.cabal
@@ -1,5 +1,5 @@
 name:               ghc-vis
-version:            0.7.2.5
+version:            0.7.2.6
 license:            BSD3
 license-file:       LICENSE
 category:           GHC, Debug, Development
diff --git a/src/GHC/Vis/View/Graph.hs b/src/GHC/Vis/View/Graph.hs
--- a/src/GHC/Vis/View/Graph.hs
+++ b/src/GHC/Vis/View/Graph.hs
@@ -180,6 +180,10 @@
     Just (Node t, EvaluateIcon) -> evaluateClick s t
     Just (Node t, CollapseIcon) -> collapseClick s t
     _ -> return ()
+  when hm $ case iconHover s of
+    -- Don't evaluate when we're back in time, but allow collapsing
+    Just (Node t, CollapseIcon) -> collapseClick s t
+    _ -> return ()
 
 evaluateClick :: State -> Int -> IO ()
 evaluateClick s t = unless (length (boxes s) <= t) $ do