diff --git a/src/cmp/cmptag.lsp b/src/cmp/cmptag.lsp
index c83c95066817d09ce57debd0b06c2e3ff105e024..a2afc9242aa7a612e12bdf6f024945c3ea052331 100644
--- a/src/cmp/cmptag.lsp
+++ b/src/cmp/cmptag.lsp
@@ -118,8 +118,7 @@
 
   ;;; Only produce a tagbody if it was needed.
   (when (zerop (var-ref tag-var))
-    (return-from c1tagbody (make-c1form* 'PROGN :args
-					 (delete-if #'tag-p body))))
+    (return-from c1tagbody (make-c1form* 'PROGN :type 'NULL :args (delete-if #'tag-p body))))
   (when (var-ref-ccb tag-var)
     (incf *setjmps*))
   (add-loop-registers body)