global env

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