diff --git a/scheme/base.sld b/scheme/base.sld
index 5e4ec10a..f771290d 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -875,12 +875,12 @@
        (cons (f (car lst1) (car lst2)) (Cyc-map-loop-2 f (cdr lst1) (cdr lst2)))))
     (define (Cyc-for-each-loop-1 f lst)
       (if (null? lst)
-        '()
+       (void)
        (begin (f (car lst)) 
               (Cyc-for-each-loop-1 f (cdr lst)))))
     (define (Cyc-for-each-loop-2 f lst1 lst2)
       (if (or (null? lst1) (null? lst2))
-        '()
+       (void)
        (begin (f (car lst1) (car lst2)) 
               (Cyc-for-each-loop-2 f (cdr lst1) (cdr lst2)))))