diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 6aafdc96..0dade884 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -934,6 +934,10 @@
            (cons 'Cyc-fast-list-3 (map (lambda (a) (convert a renamed)) (cdr ast))))
           ((and (eq? (car ast) 'list) (= (length ast) 5))
            (cons 'Cyc-fast-list-4 (map (lambda (a) (convert a renamed)) (cdr ast))))
+          ((and (eq? (car ast) 'for-each) (= (length ast) 3))
+           (cons 'Cyc-for-each-loop-1 (map (lambda (a) (convert a renamed)) (cdr ast))))
+          ((and (eq? (car ast) 'map) (= (length ast) 3))
+           (cons 'Cyc-map-loop-1 (map (lambda (a) (convert a renamed)) (cdr ast))))
           ;; Regular case, alpha convert everything
           (else
            (regular-case)))))