[plt-scheme] FFI and ports

Is there a way of making this printf statement print to the
current-output-port?  More generally, suppose the c-lambda is wrapping a C
function that makes several calls to printf.  Is there a way to make it play
nicely with Scheme ports?  TIA.

(module print mzscheme
  (require (lib "cffi.ss" "compiler"))
  (provide (all-defined))
  (define p (c-lambda () void "printf(\"Hello\\n\");")))

-d