diff --git a/test.scm b/test.scm
index 5a606379..a7b84bd9 100644
--- a/test.scm
+++ b/test.scm
@@ -1,6 +1,7 @@
 (import (scheme base)
         (scheme read)
-        (scheme write))
+        (scheme write)
+        (srfi 18))
 
 ;; Spawn off a thread
 ;(let ((t (thread-start! (make-thread (lambda () (write 'a))))))