diff --git a/hbs2-git3/app/Main.hs b/hbs2-git3/app/Main.hs
index 32bf6dbf..84579e88 100644
--- a/hbs2-git3/app/Main.hs
+++ b/hbs2-git3/app/Main.hs
@@ -599,7 +599,7 @@ export mref' r = connectedDo $ flip runContT pure do
   ContT $ withAsync $ replicateM_ 2 $ forever do
     join $ atomically (readTQueue deferred)
 
-  lift $ flip fix ExportGetCommit $ \next -> \case
+  lift $ flip fix ExportStart $ \next -> \case
 
     ExportStart -> do
       here <- withState $ selectCBlock r <&> isJust