Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 808)
+++ /trunk/ccl/lib/macros.lisp	(revision 809)
@@ -516,5 +516,5 @@
                          (default-setf form value env))))))))))
           ((oddp temp)
-           (error "Odd number of args to SETF."))
+           (error "Odd number of args to SETF : ~s." args))
           (t (do* ((a args (cddr a)) (l nil))
                   ((null a) `(progn ,@(nreverse l)))