diff --git a/collects/compiler/decompile.ss b/collects/compiler/decompile.ss
index 33144f5eed..1448bb138d 100644
--- a/collects/compiler/decompile.ss
+++ b/collects/compiler/decompile.ss
@@ -248,6 +248,11 @@
     [(struct beg0 (exprs))
      `(begin0 ,@(for/list ([expr (in-list exprs)])
                   (decompile-expr expr globs stack)))]
+    [(struct with-cont-mark (key val body))
+     `(with-continuation-mark
+          ,(decompile-expr key globs stack)
+          ,(decompile-expr val globs stack)
+          ,(decompile-expr body globs stack))]
     [(struct closure (lam gen-id))
      `(CLOSED ,gen-id ,(decompile-expr lam globs stack))]
     [(struct indirect (val))