diff --git a/module/language/tree-il.scm b/module/language/tree-il.scm
index c268effac..6811734b7 100644
--- a/module/language/tree-il.scm
+++ b/module/language/tree-il.scm
@@ -321,7 +321,7 @@
      `(dynref ,(unparse-tree-il fluid) ,(unparse-tree-il exp)))
     
     ((<prompt> tag body handler)
-     `(prompt ,tag ,(unparse-tree-il body) ,(unparse-tree-il handler)))
+     `(prompt ,(unparse-tree-il tag) ,(unparse-tree-il body) ,(unparse-tree-il handler)))
     
     ((<abort> tag args tail)
      `(abort ,(unparse-tree-il tag) ,(map unparse-tree-il args)