diff --git a/src/GF/Speech/GrammarToVoiceXML.hs b/src/GF/Speech/GrammarToVoiceXML.hs
index da580fe4c..961f021f5 100644
--- a/src/GF/Speech/GrammarToVoiceXML.hs
+++ b/src/GF/Speech/GrammarToVoiceXML.hs
@@ -138,7 +138,8 @@ cat2form :: String -> CatQuestions -> VIdent -> [(VIdent, [VIdent])] -> XML
 cat2form gr qs cat fs = 
   form (catFormId cat) $ 
       [var "old" Nothing, 
-       field "term" [("expr", "old.name != '?' ? old : undefined")]
+       blockCond "old.name != '?'" [assign "term" "old"],
+       field "term" []
            [promptString (getCatQuestion cat qs), 
             vxmlGrammar (gr++"#"++catFormId cat)
            ]