Index: /fmts/trunk/p/C0XF2N.m
===================================================================
--- /fmts/trunk/p/C0XF2N.m	(revision 1395)
+++ /fmts/trunk/p/C0XF2N.m	(revision 1396)
@@ -277,7 +277,8 @@
  . S ZVOC=$P(ZI,"xmlns:",2)
  . I ZVOC'="" S C0XVOC(ZVOC)=$G(@ZDOM@(1,"A",ZI))
- W !,"VOCABS:"
- N ZZ S ZZ=""
- F  S ZZ=$O(C0XVOC(ZZ)) Q:ZZ=""  W !,ZZ,":",C0XVOC(ZZ)
+ I $D(DEBUG) D  ;
+ . W !,"VOCABS:"
+ . N ZZ S ZZ=""
+ . F  S ZZ=$O(C0XVOC(ZZ)) Q:ZZ=""  W !,ZZ,":",C0XVOC(ZZ)
  ;
  ; -- look for children called rdf:Description. quit if none. not an rdf file
@@ -542,5 +543,5 @@
  ; -- then unlocking to minimize the duration of the lock
  ;
- W !,"USING BULKLOAD"
+ I $D(DEBUG) W !,"USING BULKLOAD"
  I '$D(ZBFDA) Q  ; EMPTY FDA
  I $O(ZBFDA(""))'=172.101 Q  ; WRONG FILE
@@ -552,5 +553,5 @@
  . B
  ; -- lock the zero node and reserve a block of iens to insert
- W !,"LOCKING ZERO NODE"
+ I $D(DEBUG) W !,"LOCKING ZERO NODE"
  LOCK +^C0X(101,0)
  S ZP3=$P(^C0X(101,0),U,3)
@@ -561,6 +562,6 @@
  N ZI,ZN,ZG,ZS,ZP,ZO,ZIEN,ZBASE
  S ZBASE=ZP3 ; the last ien in the file
- W !,"ZERO NODE UNLOCKED, IENS RESERVED=",ZCNT
- W !,$$NOW^XLFDT
+ I $D(DEBUG) W !,"ZERO NODE UNLOCKED, IENS RESERVED=",ZCNT
+ I $D(DEBUG) W !,$$NOW^XLFDT
  S ZI=""
  F  S ZI=$O(ZBFDA(172.101,ZI)) Q:ZI=""  D  ;