for-each and varargs

[Kevin Ryde]

In the latest cvs built on a recent i386 debian, for-each doesn't
always seem to like a procedure taking a variable number of arguments.
For instance foo.scm,

    (for-each (lambda (x . y) (display x))
              '(1 2 3))

run with "guile -s foo.scm" gives

    ERROR: In procedure for-each:
    ERROR: Wrong type argument in position 1: #<procedure #f (x . y)>

whereas I hoped it would display `123'.  Curiously this is what it
does when run interatively, not with "guile -s".

I noticed this in guile-www where http.scm maps display-with-crlf
across a list of header strings.