DO-WITH-TEMPORARY-DIRECTORY now actually creates a temporary directory.
Use unused IF-DOES-NOT-EXIST argument in CHAINS.PEE:READ-PROGRAM-DATA.