Fix setcdr example.

diff --git a/lispref/lists.texi b/lispref/lists.texi
index 0eb4a290f43d657c2da718ae30c03151ec18c15e..3f9a5c8d7e44dd6d55ebfbf113db04cfe5091975 100644 (file)
--- a/lispref/lists.texi
+++ b/lispref/lists.texi
@@ -1417,8 +1417,7 @@ the associations of one copy without affecting the other:
 
 @smallexample
 @group
-(setcdr (assq 3 needles-per-cluster)
-        '("Martian Vacuum Pine"))
+(setcdr (assq 3 copy) '("Martian Vacuum Pine"))
 (cdr (assq 3 needles-per-cluster))
      @result{} ("Pitch Pine")
 @end group