Index: /branches/working-0711/ccl/lib/arglist.lisp
===================================================================
--- /branches/working-0711/ccl/lib/arglist.lisp	(revision 8021)
+++ /branches/working-0711/ccl/lib/arglist.lisp	(revision 8022)
@@ -207,5 +207,6 @@
               (keys))
       (let* ((rest nil)
-             (map (car (function-symbol-map lfun))))
+             (map (if (> pc target::arg-check-trap-pc-limit)
+                    (car (function-symbol-map lfun)))))
         (if (and map pc)
           (let ((total (+ nreq nopt (if (or restp lexprp) 1 0) (or nkeys 0)))