Index: /branches/working-0711/ccl/lib/nfcomp.lisp
===================================================================
--- /branches/working-0711/ccl/lib/nfcomp.lisp	(revision 8501)
+++ /branches/working-0711/ccl/lib/nfcomp.lisp	(revision 8502)
@@ -820,6 +820,5 @@
     (cond
       ((and (eq (%car expr) 'nfunction)
-            (symbolp (%cadr expr))
-            (lambda-expression-p (%caddr expr)))
+            (lambda-expression-p (cadr (%cdr expr))))
        (record-form-source-equivalent expr (%caddr expr))
        (fcomp-named-function (%caddr expr) (%cadr expr) env))