Index: fmts/trunk/p/C0XF2N.m
===================================================================
--- fmts/trunk/p/C0XF2N.m	(revision 1379)
+++ fmts/trunk/p/C0XF2N.m	(revision 1380)
@@ -38,5 +38,5 @@
  S @ZFARY@("C0XTN")=$NA(^C0X(101)) ; TRIPLES GLOBAL NAME
  S @ZFARY@("C0XSN")=$NA(^C0X(201)) ; STRING FILE GLOBAL NAME
- S @ZFARY@("C0XDIR")="/home/glilly/fmts/trunk/samples/smart-rdf-in/"
+ S @ZFARY@("C0XDIR")="/home/glilly/sage/test/"
  S @ZFARY@("BLKLOAD")=1 ; this file supports block load
  S @ZFARY@("FMTSSTYLE")="F2N" ; fileman style
@@ -235,4 +235,6 @@
  ;S C0XDOCID=$$PARSE^C0CNHIN(ZRDF,"C0XARRAY") ; PARSE WITH MXML
  S C0XDLC2=$$NOW^XLFDT ; START OF PARSE
+ I @ZRDF@(1)'["<?xml" D  Q  ;
+ . W !,"Not an XML file"
  S C0XDOCID=$$EN^MXMLDOM(ZRDF,"W") ; 
  ;B
@@ -633,9 +635,9 @@
  ;  
 SWUPDIE(ZFDA) ; SWITCH BETWEEN UPDIE AND BULKLOAD
- . I $G(BLKLOAD) D  ; bulk load
- . . D BULKLOAD(.ZFDA) ; bulk load the batch
- . E  D  ; no bulk load
- . . D UPDIE(.ZFDA)
- . K ZFDA
+ I $G(BLKLOAD)=1 D  ; bulk load
+ . D BULKLOAD(.ZFDA) ; bulk load the batch
+ E  D  ; no bulk load
+ . D UPDIE(.ZFDA)
+ K ZFDA
  Q
  ;