Doesn't delete toplevel directory in function dirclear