diff --git a/undone/main.scm b/undone/main.scm
index b1f1845..987a464 100644
--- a/undone/main.scm
+++ b/undone/main.scm
@@ -83,7 +83,7 @@
 
 (define-view test
   "Just a test view, see everything in todo-list."
-  (write todo-list))
+  (format #t "~y" todo-list))
 
 (define (view args)
   "Show a list of todo items."