--- streams.scm.~1.8.~	2003-04-07 08:05:00.000000000 +1000
+++ streams.scm	2004-09-04 12:22:07.000000000 +1000
@@ -190,7 +190,7 @@
   (if (not (or-map stream-null? streams))
       (begin
         (apply f (map stream-car streams))
-        (stream-for-each-one f (map stream-cdr streams)))))
+        (stream-for-each-many f (map stream-cdr streams)))))
 
 (define (stream-map f stream . rest)
   "Returns a newly allocated stream, each element being the result of