Index: ccr/trunk/p/C0CXPATH.m
===================================================================
--- ccr/trunk/p/C0CXPATH.m	(revision 513)
+++ ccr/trunk/p/C0CXPATH.m	(revision 515)
@@ -149,6 +149,6 @@
  . . I ZI<$QL(G) D  ;
  . . . S ZB=$QS(G,ZI)
- . . . I ZA(ZA(0))'=ZB ZOPEN(ZB)
- . . . E  ZCLOSE(ZB)
+ . . . I ZA(ZA(0))'=ZB D ZXO(ZB)
+ . . . E  D ZXC(ZB)
  . . S ZV=""
  . . S G2=$QS(G,ZI)
@@ -159,15 +159,15 @@
  Q
  ;
-ZOPEN(WHAT)
+ZXO(WHAT)
  D PUSH("GA",WHAT)
  D PUSH(OUTXML,"<"_WHAT_">")
  Q
  ;
-ZCLOSE(WHAT)
+ZXC(WHAT)
  D POP("GA",.TMP)
  D PUSH(OUTXML,"</"_WHAT_">")
  Q
  ;
-ZVAL(WHAT,VAL)
+ZXVAL(WHAT,VAL)
  D PUSH(OUTXML,"<"_WHAT_">"_VAL_"</"_WHAT_">")
  Q