Index: /branches/working-0711/ccl/level-1/l1-clos.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-clos.lisp	(revision 7824)
+++ /branches/working-0711/ccl/level-1/l1-clos.lisp	(revision 7825)
@@ -1913,5 +1913,5 @@
                        (if spvar
                          `(if ,spvar
-                           (require-type .form ',type)
+                           (require-type ,form ',type)
                            (%slot-unbound-marker))
                          `(require-type ,form ',type))))))