diff --git a/tests/base.scm b/tests/base.scm
index 32829b8b..c67a23b3 100644
--- a/tests/base.scm
+++ b/tests/base.scm
@@ -9,6 +9,7 @@
 
 (import 
   (scheme base)
+  (scheme eval)
   (scheme inexact)
   (cyclone test))
 
@@ -31,6 +32,12 @@
   (test '() (make-list -2))
 )
 
+(test-group
+  "apply"
+  (test '(5 1 2) (eval '(apply cons '(5 (1 2)))))
+  (test '(5 1 2) (apply cons '(5 (1 2))))
+)
+
 (cond-expand
   (memory streams
     (test-group