diff --git a/src/Lean/Compiler/LCNF/PrettyPrinter.lean b/src/Lean/Compiler/LCNF/PrettyPrinter.lean
index a30d0f85c0..aabe9f81c9 100644
--- a/src/Lean/Compiler/LCNF/PrettyPrinter.lean
+++ b/src/Lean/Compiler/LCNF/PrettyPrinter.lean
@@ -99,7 +99,11 @@ mutual
     | .cases c => return f!"cases {← ppFVar c.discr} : {← ppExpr c.resultType}{← prefixJoin .line c.alts ppAlt}"
     | .return fvarId => return f!"return {← ppFVar fvarId}"
     | .jmp fvarId args => return f!"goto {← ppFVar fvarId} {← ppArgs args}"
-    | .unreach .. => return "⊥"
+    | .unreach type =>
+      if pp.all.get (← getOptions) then
+        return f!"⊥ : {← ppExpr type}"
+      else
+        return "⊥"
 end
 
 def run (x : M α) : CompilerM α :=