Comment 2 for bug 164173

Fixed in revision 1099.
Does this feel better:

> (define-record-type foo (fields a))
> (make-foo)
Unhandled exception
 Condition components:
   1. &error
   2. &who: a-record-constructor
   3. &message: "expected 1 args, got 0 instead"
> (make-foo 'x)
#[foo x]
> (make-foo 'x 'y 'z)
Unhandled exception
 Condition components:
   1. &error
   2. &who: a-record-constructor
   3. &message: "expected 1 args, got 3 instead"
   4. &irritants: (x y z)

Reopen if you have better ideas.
Thanks.