diff --git a/TODO b/TODO
index 7ef46d41..a6dcecc9 100644
--- a/TODO
+++ b/TODO
@@ -11,6 +11,8 @@ Working TODO list:
  - apply seems broken:
  cyclone> (apply append '((1) (2) (3)))
  ((1) (2) (3))
+ 
+   This is broken in the interpreter (eval) not in compiled code. probably a deficiency in eval.scm
 
  - Constructs require for self-hosting
 
diff --git a/test.scm b/test.scm
index 9a04d243..d9b2ec79 100644
--- a/test.scm
+++ b/test.scm
@@ -7,3 +7,4 @@
 ;`(read ,
 (write (make-vector 4 #t))
 (write (string->list "abc"))
+(write (apply append '((1) (2) (3))))