diff --git a/src/cmp/cmpspecial.lsp b/src/cmp/cmpspecial.lsp
index 26a0894bf..63e6cb183 100644
--- a/src/cmp/cmpspecial.lsp
+++ b/src/cmp/cmpspecial.lsp
@@ -115,7 +115,7 @@
 		  (funob (c1lambda-expr (cddr fun)))
 		  (info (second funob))
 		  (closure (closure-p funob))
-		  (body (cdddr fun))
+		  (body `(BLOCK ,name ,@(cdddr fun)))
 		  (fun (make-fun :name name
 				 :cfun (next-cfun)
 				 :closure closure)))