(define port (open-output-file "/tmp/test.txt"))
(with-error-output-to-port port (lambda () (format #t "blabla"))
(close-output-port port)