diff --git a/lib/init.scm b/lib/init.scm
index 4bb3bc5c..8ea2077b 100644
--- a/lib/init.scm
+++ b/lib/init.scm
@@ -819,6 +819,11 @@
                 (list (list _error "no expansion for"
                             (list (rename 'strip-syntactic-closures) _expr)))))))))))
 
+(define-syntax letrec*
+  (syntax-rules ()
+    ((letrec* ((var val) ...) . body)
+     (let () (define var val) ... . body))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; modules