diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs
index 4f14c53..5a61fa2 100644
--- a/backends/GenerateC.hs
+++ b/backends/GenerateC.hs
@@ -798,7 +798,7 @@ cgetCType m origT am
          (A.Array _ t@(A.Chan {}), _, False, _)
            -> call getCType m t A.Original >>* (Pointer . Pointer)
          (A.Array _ t@(A.ChanEnd {}), _, False, _)
-           -> call getCType m t A.Original >>* (Pointer . Pointer)
+           -> call getCType m t A.Original >>* Pointer
        
          -- All abbrev modes:
          (A.Array _ t, _, False, _)
diff --git a/backends/GenerateCPPCSP.hs b/backends/GenerateCPPCSP.hs
index df08ab8..d3629b1 100644
--- a/backends/GenerateCPPCSP.hs
+++ b/backends/GenerateCPPCSP.hs
@@ -650,7 +650,6 @@ cppgetScalarType _ = Nothing
 -- | Changed from GenerateC to change the arrays and the channels
 --Also changed to add counted arrays and user protocols
 cppgetCType :: Meta -> A.Type -> A.AbbrevMode -> CGen CType
-cppgetCType m (A.Array _ t@(A.ChanEnd {})) _ = call getCType m t A.Original >>* Pointer
 cppgetCType m t am | isChan t
     = do let (chanType, innerT, extra) = case t of
                           A.ChanEnd A.DirInput _ innerT -> ("csp::AltChanin", innerT, extraEnd)