diff --git a/common/FlowGraphTest.hs b/common/FlowGraphTest.hs
index a98b807..54b7b73 100644
--- a/common/FlowGraphTest.hs
+++ b/common/FlowGraphTest.hs
@@ -690,7 +690,7 @@ genProcess n = nextIdT >>* makeMeta' >>= \m -> (flip oneofLS) n
    ,(2,const $ genElem3 A.Assign m (comb0 [variable "x"]) genExpressionList)
    ,(1,const $ genElem2 A.GetTime m (comb0 $ variable "x"))
    ,(1,const $ genElem3 A.Wait m (comb0 A.WaitFor) genExpression)
-   ,(2,genElem3 A.Alt m (comb0 True) . genStructured genAlternative' . sub1)
+   ,(2,comb1 (A.Alt emptyMeta True) . genStructured genAlternative' . sub1)
   ]
 
 genProcess' :: (Int, Int -> GenL A.Process)