Index: /branches/working-0711/ccl/compiler/optimizers.lisp
===================================================================
--- /branches/working-0711/ccl/compiler/optimizers.lisp	(revision 7842)
+++ /branches/working-0711/ccl/compiler/optimizers.lisp	(revision 7843)
@@ -330,4 +330,5 @@
            (eq (cadr fn) 'make-instance)
            (consp arg0)
+           (eq (car arg0) 'quote)
            (consp (cdr arg0))
            (symbolp (cadr arg0)))