I've been working with a ported version of SSAX to Chez (I think I
started with the R5RS version from SF). When I remember porting this
thing, I remember runningg the verification tests and things seemed to
be working fine. However, now, there appears to be a bit of a problem
with using SXML->HTML which is unexpected. I wonder if someone is here
who has used the software and can help me understand what is going
wrong?

(define (make-field-xml article ft)
  (sxml->html `(,(getprop
                   'prefs
                   (string->symbol
                     (string-append
                       (symbol->string ft)
                       "-html-tag")))
                (@ (class ,(symbol->string ft)))
                ,(getprop article ft))))

(define (make-article-string article)
  (with-output-to-string
    (lambda ()
      (display (getprop 'prefs 'article-start))
      (loop ((for field-type (in-list (getprop 'prefs 'field-order))))
        (display (make-field-xml article field-type)))
      (display (getprop 'prefs 'article-end)))))

This is the basic code that I am using. (SXML->HTML ...) seems to be
giving me a string like expected, but all the strings are appended at
the end with the characters "#t". What's with that?

(SXML->HTML '(p "Test")) : "<p>Test</p>#t"

Just like

   (begin (display "foo") #t)