Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 444)
+++ /trunk/ccl/lib/macros.lisp	(revision 445)
@@ -1759,5 +1759,5 @@
         (push `(:method-class ,method-class) (cddr m))))
     (when declarations
-      (setq options `((:declarations ,declarations ,@options))))
+      (setq options `((:declarations ,declarations) ,@options)))
     (values method-combination generic-function-class options methods)))