diff --git a/frontends/ParseOccam.hs b/frontends/ParseOccam.hs
index 3f1bb54..21d7201 100644
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@@ -765,7 +765,7 @@ sizeExpr
             <|> do v <- operand
                    return $ A.SizeExpr m v
             <|> do v <- (directedChannel <|> timer <|> port)
-                   return $ A.SizeVariable m v
+                   return $ A.ExprVariable m $ specificDimSize 0 v
     <?> "SIZE expression"
 
 functionCall :: OccParser A.Expression