diff --git a/p/C0CMXP.m b/p/C0CMXP.m
index d963650..4c4ddfd 100644
--- a/p/C0CMXP.m
+++ b/p/C0CMXP.m
@@ -171,7 +171,7 @@ DEMUXARY(OARY,IARY,DEPTH) ;CONVERT AN XPATH ARRAY PASSED AS IARY TO
  . I $G(DEPTH)=2 D  ;LAST TWO PARTS OF XPATH USED FOR THE VARIABLE NAME
  . . S ZM=$RE($P($RE(ZK),"/",2))_ZM
  . S ZL=$P(ZJ,"^",1)
- . I ZL="" S ZL=0
+ . I ZL="" S ZL=1
  . I $D(@OARY@(ZL,ZM)) D  ;IT'S A DUP
  . . S @OARY@(ZL,ZM_"[2]")=@IARY@(ZI)
  . E  S @OARY@(ZL,ZM)=@IARY@(ZI)