Cope for call-with-output-file

does not run right, tho