diff --git a/data-and-control-flow/prog1.lsp b/data-and-control-flow/prog1.lsp
index d7c53fd04985b63341c3c60d10757be9705debc8..9392b0991b1c487989e06244143c30074d0d6884 100644
--- a/data-and-control-flow/prog1.lsp
+++ b/data-and-control-flow/prog1.lsp
@@ -46,3 +46,11 @@
   good)
 
 (def-macro-test prog1.error.1 (prog1 nil))
+
+(deftest prog1.8
+  (prog1 (values 'a 'b))
+  a)
+
+(deftest prog1.9
+  (prog1 (values))
+  nil)