[plt-scheme] How to get pretty-print pretty ?

Greetings,

If I do the following (in 200):

(define lst '(define fun
                (lambda (a b)
                  (let ((c a)
                        (d b))
                    (+ c d)))))
(print lst)
(newline)
(pretty-print lst)

I get:

(define fun (lambda (a b) (let ((c a) (d b)) (+ c d))))
(define fun (lambda (a b) (let ((c a) (d b)) (+ c d))))

Is there a way to get pretty-print to really be pretty?  I know it splits
lines but how do I get it to print in a (readable) style similar to
my (define lst ...  above?

Thanks.

Blake McBride