let make_filename dir language category textdomain = 
  (* http://www.gnu.org/software/gettext/manual/html_mono/gettext.html#SEC148 
    dir_name/locale/LC_category/domain_name.mo *)
  make_filename [
    (* BUG : should use add_extension *)
    dir; language; string_of_category category; textdomain ^ ".mo" 
  ]