Index: /trunk/ccl/lib/foreign-types.lisp
===================================================================
--- /trunk/ccl/lib/foreign-types.lisp	(revision 6028)
+++ /trunk/ccl/lib/foreign-types.lisp	(revision 6029)
@@ -1437,5 +1437,5 @@
               (call result)
               (if args
-                (error "Extra arguments in ~s" (call))
+                (error "Extra arguments in ~s"  whole)
                 `(external-call ,external-name ,@(call))))
           (let* ((spec (car specs)))