Index: ccr/trunk/p/C0CMXP.m
===================================================================
--- ccr/trunk/p/C0CMXP.m	(revision 652)
+++ ccr/trunk/p/C0CMXP.m	(revision 653)
@@ -172,5 +172,5 @@
  . . 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)