[plt-scheme] srfi 1 zip bug

It looks like SRFI 1 defines zip in terms of MzScheme's map, rather than the
SRFI's map, which means zip breaks on circular lists and lists of different
length.

mzscheme -L 1.ss srfi
Welcome to MzScheme version 206.1, Copyright (c) 2004 PLT Scheme, Inc.
> (zip '(3 1 4 1) (circular-list #f #t))
map: expects type <proper list> as 3rd argument, given: #0=(#f #t . #0#);
other arguments were: #<primitive:list> (3 1 4 1)

> (apply map list (list '(3 1 4 1) (circular-list #f #t)))
((3 #f) (1 #t) (4 #f) (1 #t))

(Should this be directed to Schematics?)

David