Index: /trunk/source/compiler/optimizers.lisp
===================================================================
--- /trunk/source/compiler/optimizers.lisp	(revision 13230)
+++ /trunk/source/compiler/optimizers.lisp	(revision 13231)
@@ -327,4 +327,5 @@
       call)))
 
+
 (define-compiler-macro apply  (&whole call fn arg0 &rest args)
   ;; Special-case (apply #'make-instance 'name ...)
@@ -362,5 +363,15 @@
                    original-fn
                    (nreconc (cdr (reverse args)) (%cdr last))))
-            call))))))
+            (if (and (consp last)
+                     (eq (car last) 'quote)
+                     (proper-list-p (cadr last)))
+              (flet ((quotify (arg)
+                       (if (self-evaluating-p arg)
+                         arg
+                         (list 'quote arg))))
+                (cons 'funcall (cons original-fn
+                                     (nreconc (cdr (reverse args)) (mapcar #'quotify (%cadr last))))))
+              call)))))))
+