diff --git a/beautiful-racket/br/demo/txtadv/parser.rkt b/beautiful-racket/br/demo/txtadv/parser.rkt
index a2208f7..523d778 100644
--- a/beautiful-racket/br/demo/txtadv/parser.rkt
+++ b/beautiful-racket/br/demo/txtadv/parser.rkt
@@ -4,9 +4,11 @@ txtadv-program : verb-section everywhere-section things-section places-section s
 
 verb-section : !"===VERBS===" verb-item+
 
-!verb-item : verb-name+ s-exp
+!verb-item :  verb next-verb* s-exp
 
-!verb-name : [!","] ID ["_"]
+!verb : ID ["_"]
+
+@next-verb : [!","] verb
 
 everywhere-section : !"===EVERYWHERE===" id-desc+