Only try to remove the tsa.dir subdirectory if it actually exists.

$ setup_dir:

$	subroutine

$

$		if f$search("tsa.dir") .nes ""

$		then

$			@[-.util]deltree [.tsa]*.*

$ 			set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) tsa.dir;*

$ 			delete tsa.dir;*

$		endif

$

$		create/dir [.tsa]

$		set default [.tsa]