Index: /release/1.2/source/level-1/l1-clos-boot.lisp
===================================================================
--- /release/1.2/source/level-1/l1-clos-boot.lisp	(revision 9345)
+++ /release/1.2/source/level-1/l1-clos-boot.lisp	(revision 9346)
@@ -3028,6 +3028,8 @@
 					       *standard-class-class*)))
 	 (meta-spec (if (quoted-form-p meta-arg) (%cadr meta-arg) meta-arg))
-	 (meta (if (typep meta-spec 'class) meta-spec (find-class meta-spec))))
-    (compute-initargs-vector class meta (list #'initialize-instance #'allocate-instance #'shared-initialize) t)))
+	 (meta (if (typep meta-spec 'class) meta-spec (find-class meta-spec nil))))
+    (if (and meta (not (typep meta 'forward-referenced-class)))
+      (compute-initargs-vector class meta (list #'initialize-instance #'allocate-instance #'shared-initialize) t)
+      t)))
 
 (defun compute-initargs-vector (instance class functions &optional require-rest)