diff --git a/test-suite/tests/rtl-compilation.test b/test-suite/tests/rtl-compilation.test
index cf00a4f78..ef4ab8d0b 100644
--- a/test-suite/tests/rtl-compilation.test
+++ b/test-suite/tests/rtl-compilation.test
@@ -158,7 +158,16 @@
                              (define (odd? x)
                                (if (null? x) #f (even? (cdr x))))
                              (even? x)))
-                 '(1 2 3)))))
+                 '(1 2 3))))
+
+  (pass-if-equal '(#t)
+      ((run-rtl '(lambda (x)
+                   (define (even? x)
+                     (if (null? x) #t (odd? (cdr x))))
+                   (define (odd? x)
+                     (if (null? x) #f (even? (cdr x))))
+                   (list (even? x))))
+       '(1 2 3 4))))
 
 (with-test-prefix "case-lambda"
   (pass-if-equal "simple"