global env

   if {![info exists env(XML_LIBRARY)]} {
       set env(XML_LIBRARY) \
           ";F:\\xml2rfc\\include;F:\\xml2rfc\\bibxml"
   }
   set nativeD [file nativename $inputD]
   if {[lsearch [split $env(XML_LIBRARY) ";"] $nativeD] < 0} {
       set env(XML_LIBRARY) "$nativeD;$env(XML_LIBRARY)"
   }