diff --git a/hbs2-git3/app/Main.hs b/hbs2-git3/app/Main.hs
index b4b39268..78aa80dd 100644
--- a/hbs2-git3/app/Main.hs
+++ b/hbs2-git3/app/Main.hs
@@ -1172,7 +1172,7 @@ theDict = do
                notice $ pretty tree
                none
 
-        entry $ bindMatch "test:git:export" $ nil_ $ \syn -> lift $ connectedDo do
+        entry $ bindMatch "reflog:export" $ nil_ $ \syn -> lift $ connectedDo do
           let (opts, argz) = splitOpts [("--dry",0),("--ref",1)] syn
 
           let dry = or [ True  | ListVal [StringLike "--dry"] <- opts ]