diff --git a/ansi-tests/proclaim.lsp b/ansi-tests/proclaim.lsp
index 785ea8e2cdacaed7644d3f24524f96f4c343cb1e..9b46d0e429ec0ac6416858d22ac0c87040bccd51 100644
--- a/ansi-tests/proclaim.lsp
+++ b/ansi-tests/proclaim.lsp
@@ -19,6 +19,12 @@
     nil)
   nil)
 
+(deftest proclaim.3
+  (let ((i 0))
+    (proclaim (progn (incf i) '(optimize)))
+    i)
+  1)
+
 ;;; Error cases
 
 (deftest proclaim.error.1