diff --git a/ansi-tests/append.lsp b/ansi-tests/append.lsp
index 78634cf3ed32e0c18e7de7bcdc502f49efb79ad5..1d3d82424554910dcd0c80af9ddbe3169a94bd72 100644
--- a/ansi-tests/append.lsp
+++ b/ansi-tests/append.lsp
@@ -40,6 +40,14 @@
   (append-6-body)
   0)
 
+;;; Test suggested by Peter Graves
+(deftest append.7
+  (let ((x (list 'a 'b 'c 'd)))
+    (eq (append x nil) x))
+  nil)
+
+;;; Order of evaluation tests
+
 (deftest append.order.1
   (let ((i 0) x y z)
     (values