Index: /branches/working-0711/ccl/lib/setf.lisp
===================================================================
--- /branches/working-0711/ccl/lib/setf.lisp	(revision 13139)
+++ /branches/working-0711/ccl/lib/setf.lisp	(revision 13140)
@@ -900,7 +900,7 @@
       (multiple-value-bind (dummies vals newval setter getter) 
 	  (get-setf-expansion place env) 
-	(setf all-dummies (append all-dummies dummies)) 
-	(setf all-vals (append all-vals vals)) 
-	(setf newvals (append newvals newval)) 
+	(setf all-dummies (append all-dummies dummies (cdr newval))) 
+	(setf all-vals (append all-vals vals (mapcar (constantly nil) (cdr newval)))) 
+	(setf newvals (append newvals (list (car newval)))) 
 	(push setter setters)
 	(push getter getters)))