<HTML><BODY>For any procedure I can use procedure-arity. But how to get the number of init arguments for a class? Or maybe there are any other way to make a contract, like in Guide 7.3.9, where one can compare number of arguments and arity of the function, but when using (make-object someclass ...) instead of the function. -- Roman Klochkov</BODY></HTML>