Index: /branches/working-0711/ccl/compiler/optimizers.lisp
===================================================================
--- /branches/working-0711/ccl/compiler/optimizers.lisp	(revision 7749)
+++ /branches/working-0711/ccl/compiler/optimizers.lisp	(revision 7750)
@@ -781,6 +781,7 @@
            (symbolp (cadr class))
            (null (cddr class)))
-    `(%make-instance (load-time-value (find-class-cell ,class t))
-                     ,@initargs)
+    (let* ((cell (gensym)))
+      `(let* ((,cell (load-time-value (find-class-cell ,class t))))
+        (funcall (class-cell-instantiate ,cell) ,cell ,@initargs)))
     call))