;This works as I expect:

(define nowhere (make-output-port void void))
(with-output-to-port nowhere (lambda () (system "ls")))

;This does not work as I expect: 
(with-output-to-string (lambda () (system "ls")))

;is this intentional?