diff --git a/frontends/ParseOccam.hs b/frontends/ParseOccam.hs
index c24271c..7a1da5d 100644
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@@ -843,7 +843,7 @@ channel
 channel' :: OccParser A.Variable
 channel'
     =   do { m <- md; n <- try channelName; return $ A.Variable m n }
-    <|> maybeSliced channel A.SubscriptedVariable
+    <|> maybeSliced directedChannel A.SubscriptedVariable
     <?> "channel'"
 
 direction :: OccParser A.Direction