- Slave.shellF ([Config.cat, " ", dns, " >>", fname],
- fn cl => "Error concatenating file: " ^ cl);
+ if Posix.FileSys.access (dns, []) then
+ Slave.shellF ([Config.cat, " ", dns, " >>", fname],
+ fn cl => "Error concatenating file: " ^ cl)
+ else
+ ();