How to do "ls /tmp > /dev/null" in Guile?

[Alex Kost]

Hello, in the guile REPL I evaluated the following:

  (with-output-to-port (%make-void-port "w")
    (lambda () (display "foo") (newline)))

and I got no output as expected.  Then I tried the following:

  (with-output-to-port (%make-void-port "w")
    (lambda () (system* "ls" "/tmp")))

but there was an output from "ls" command.  So my question is: how to
get rid of this output?

-- 
Thanks,
Alex