let slurp x = if !*My_unix.is_degraded then slurp_with_find x else real_slurp x