diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index 7815a361e52310c0cc4a9b341c5d5bb9755a7418..e397097a3f06e074cb23644fb3d978f228808c2c 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -2490,7 +2490,7 @@
 	  (if ignore
 	      (ir1-convert start cont nil)
 	      (ir1-convert start cont `(%proclaim ,what)))))
-      (ir1-convert start cont nil)))
+      (ir1-convert start cont `(%proclaim ,what))))
 
 
 ;;; %Compiler-Defstruct IR1 Convert  --  Internal