Made the with-input-from-file and with-output-to-file procedures tie the lifetime of the current-input-port and current-output-port to the dynamic extent of the call to the thunk