(let ((chain (with-output-to-string print-call-chain)))
  ...)