diff --git a/frontends/ParseOccam.hs b/frontends/ParseOccam.hs
index 1ea4fe2..eab0b3b 100644
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@@ -574,7 +574,7 @@ arrayType element
 specArrayType :: OccParser A.Type -> OccParser A.Type
 specArrayType element
     =   arrayType element
-    <|> do t <- tryXXV sLeft sRight element
+    <|> do t <- tryXXV sLeft sRight (specArrayType element <|> element)
            return $ addDimensions [A.UnknownDimension] t
 
 dataType :: OccParser A.Type