diff --git a/macro-testing.scm b/macro-testing.scm
index f6903f0d..cb1afdf5 100644
--- a/macro-testing.scm
+++ b/macro-testing.scm
@@ -1,4 +1,4 @@
-(import (scheme base) (scheme write))
+(import (scheme base) (scheme write) (scheme case-lambda))
 
 ;(call-with-values (lambda () (values 1 2)) (lambda (x y) (write `(,x ,y))))
 ;(define-syntax letrec*