diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index 0d14a3f..30d6871 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -279,6 +279,8 @@
     (##sys#check-syntax 'parameterize form '#(_ 2))
     (let* ((bindings (cadr form))
 	   (body (cddr form))
+	   (the (r 'the))
+	   (boolean (r 'boolean))
 	   (convert? (r 'convert?))
 	   (params (##sys#map car bindings))
 	   (vals (##sys#map cadr bindings))
@@ -290,7 +292,7 @@
 	(##core#let
 	 ,(map ##sys#list saveds vals)
 	 (##core#let
-	  ((,convert? #t)) ; Convert only first time extent is entered!
+	  ((,convert? (,the ,boolean ((lambda (x) x) #t)))) ; Convert only first time extent is entered!
 	  (##sys#dynamic-wind
 	   (##core#lambda ()
 	    (##core#let