diff --git a/implementation/divers.lisp b/implementation/divers.lisp
index f8c0f48..3e0261b 100644
--- a/implementation/divers.lisp
+++ b/implementation/divers.lisp
@@ -106,9 +106,11 @@
 	,(mapcar #'cdar bindings)))
 
 (defmacro let* (bindings &rest body)
-  `(let (,(car bindings))
-	 (let* ,(cdr bindings)
-	   ,body)))
+  (if (endp bindings)
+      body
+    `(let (,(car bindings))
+       (let* ,(cdr bindings)
+         ,body))))
 
 (defmacro labels (f-bindings &rest body)
   ;; TODO