diff --git a/frontends/ParseOccam.hs b/frontends/ParseOccam.hs
index e61d43f..3490d54 100644
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@@ -1584,8 +1584,7 @@ caseInput
 variant :: OccParser (A.Structured A.Variant)
 variant
     =   do m <- md
-           tl <- taggedList
-           eol
+           tl <- tryVX taggedList eol
            indent
            p <- process
            outdent