diff --git a/src/GF/Compile/Coding.hs b/src/GF/Compile/Coding.hs
index c871f16a3..49538bd35 100644
--- a/src/GF/Compile/Coding.hs
+++ b/src/GF/Compile/Coding.hs
@@ -29,6 +29,7 @@ codeTerm :: (String -> String) -> Term -> Term
 codeTerm co t = case t of
       K s -> K (co s)
       T ty cs -> T ty [(codp p,codeTerm co v) | (p,v) <- cs]
+      EPatt p -> EPatt (codp p)
       _ -> composSafeOp (codeTerm co) t
   where
     codp p = case p of  --- really: composOpPatt