diff --git a/fixme-new/lib/Fixme/Run.hs b/fixme-new/lib/Fixme/Run.hs
index a7b1f7b3..b0f9965b 100644
--- a/fixme-new/lib/Fixme/Run.hs
+++ b/fixme-new/lib/Fixme/Run.hs
@@ -51,7 +51,8 @@ pattern Init <- ListVal [SymbolVal "init"]
 pattern ScanGitLocal :: forall {c}. [ScanGitArgs] -> Syntax c
 pattern ScanGitLocal e <- ListVal (SymbolVal "scan-git" : (scanGitArgs -> e))
 
-
+pattern Update :: forall {c}. [ScanGitArgs] -> Syntax c
+pattern Update e <- ListVal (SymbolVal "update" : (scanGitArgs -> e))
 
 pattern ReadFixmeStdin :: forall {c}.  Syntax c
 pattern ReadFixmeStdin <- ListVal [SymbolVal "read-fixme-stdin"]
@@ -526,6 +527,8 @@ run what = do
 
       ScanGitLocal args -> scanGitLocal args Nothing
 
+      Update args -> scanGitLocal args Nothing
+
       ReadFixmeStdin -> readFixmeStdin
 
       ListVal [SymbolVal "print-env"] -> do