--* From BMT%WATSON.vnet.ibm.com@yktvmh.watson.ibm.com  Thu Aug 26 17:21:45 1993
--* Received: from yktvmh.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA13192; Thu, 26 Aug 1993 17:21:45 -0400
--* Received: from watson.vnet.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 0240; Thu, 26 Aug 93 17:25:33 EDT
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.BMT.NOTE.VAGENT2.4356.Aug.26.17:25:31.-0400>
--*           for asbugs@watson; Thu, 26 Aug 93 17:25:32 -0400
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 4351; Thu, 26 Aug 1993 17:25:31 EDT
--* Received: from cyst.watson.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Thu, 26 Aug 93 17:25:25 EDT
--* Received: from spadserv.watson.ibm.com by cyst.watson.ibm.com (AIX 3.2/UCB 5.64/900528)
--*   id AA40135; Thu, 26 Aug 1993 17:24:27 -0400
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA24017; Thu, 26 Aug 1993 17:30:13 -0400
--* Date: Thu, 26 Aug 1993 17:30:13 -0400
--* From: bmt@spadserv.watson.ibm.com
--* X-External-Networks: yes
--* Message-Id: <9308262130.AA24017@spadserv.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: package calls from % fail in category default code [tcat.as][30.0 (current)]

--@ Fixed  by:  SSD   Mon Dec 06 10:38:35 1993 
--@ Tested by:  none 
--@ Summary:    Improved handling of package calls from %. 


#include "aslib.as"

NewRing:Category == Ring with
    coerce: Integer -> %
    * : (Integer,%) -> %
    default
      coerce(n:Integer):% == n * 1$%
--- following works instead
--      coerce(n:Integer):% == n * 1