diff --git a/frontends/ParseOccam.hs b/frontends/ParseOccam.hs
index ec2f90c..9ca0f1d 100644
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@@ -1741,8 +1741,7 @@ ifChoice
 guardedChoice :: OccParser (A.Structured A.Choice)
 guardedChoice
     =   do m <- md
-           b <- expression
-           eol
+           b <- tryVX expression eol
            indent
            p <- process
            outdent