redirected 'help' output?

[Bill Schottstaedt]

I'd like to redirect the output of "help" to a text widget, but
it's not obvious to me how to do this:

/home/bil/cl/ guile
guile> (version)
"1.4"
guile> (with-output-to-string (lambda () (help cons)))
ERROR: In procedure length in expression (length exp):
ERROR: Wrong type argument in position 1: (address@hidden cons)
ABORT: (wrong-type-arg)

Type "(backtrace)" to get more information or "(debug)" to enter the debugger.
guile> (backtrace)

Backtrace:
 0* [with-output-to-string #<procedure ()>]
 1  [call-with-output-string #<procedure (p)>]
 2* [#<procedure (p)> #<output: string 8064740>]
 3* [with-output-to-port #<output: string 8064740> #<procedure ()>]
 4  (let ((swaports (lambda () #))) (dynamic-wind swaports thunk swaports))
 5  [dynamic-wind #<procedure ()> #<procedure ()> #<procedure ()>]
 6* [#<procedure ()>]
 7* (help cons)
 8* (cond (# #) (# #) (#t #))
 9* [not ...
10*  [= ...
11*   [length (address@hidden cons)]

Type "(debug-enable 'backtrace)" if you would like a backtrace
automatically if an error occurs in the future.
guile>