let check_dir fe = 
  let (vsysdir,slice) = fe in
  let verdict = try Some(Unix.stat vsysdir) with
      _ -> logprint "vsys directory not setup for slice %s\n" slice;None
  in
    match verdict with 
      | None->false 
      | Some(_) -> true