diff --git a/src/cheats/hll-grammar.pir b/src/cheats/hll-grammar.pir
index c616b03..759ee5d 100644
--- a/src/cheats/hll-grammar.pir
+++ b/src/cheats/hll-grammar.pir
@@ -438,8 +438,16 @@ An operator precedence parser.

     .local pmc here, from, pos
     (here, pos) = self.'!cursor_start'()
+    .local pmc miscbad

   term_loop:
+    miscbad = here.'infixish'() # OHA
+    miscbad = miscbad.'MATCH'()
+    unless miscbad goto term_no_infix
+    if miscbad != ',' goto term_no_infix
+    here.'panic'('expecting element, found infix')
+  term_no_infix:
+
     here = here.termishrx()
     unless here goto fail
     .local pmc termish