Index: /trunk/source/compiler/optimizers.lisp
===================================================================
--- /trunk/source/compiler/optimizers.lisp	(revision 15380)
+++ /trunk/source/compiler/optimizers.lisp	(revision 15381)
@@ -1560,6 +1560,6 @@
                                         (if (and class
                                                  (subtypep class 'standard-object)
-                                                 (not (subtypep class 'foreign-standard-object))
-                                                 (not (subtypep class 'funcallable-standard-object)))
+                                                 (not (subtypep 'foreign-standard-object class))
+                                                 (not (subtypep 'funcallable-standard-object class)))
                                           'std-instance-class-cell-typep
                                           'class-cell-typep)))