--* From postmaster%watson.vnet.ibm.com@yktvmv.watson.ibm.com  Tue Sep 20 08:53:59 1994
--* Received: from yktvmv-ob.watson.ibm.com by asharp.watson.ibm.com (AIX 3.2/UCB 5.64/930311)
--*           id AA20973; Tue, 20 Sep 1994 08:53:59 -0400
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 7885; Tue, 20 Sep 94 08:54:01 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.MIKER.NOTE.YKTVMV.0213.Sep.20.08:54:00.-0400>
--*           for asbugs@watson; Tue, 20 Sep 94 08:54:01 -0400
--* Received: from nagrs3.nag.co.uk by watson.ibm.com (IBM VM SMTP V2R3) with TCP;
--*    Tue, 20 Sep 94 08:53:55 EDT
--* Received: by nagrs3.nag.co.uk (AIX 3.2/UCB 5.64/4.03)
--*           id AA21592; Tue, 20 Sep 1994 13:54:47 +0100
--* Date: Tue, 20 Sep 1994 13:54:47 +0100
--* From: miker@nagrs3.nag.co.uk (Mike Richardson)
--* Message-Id: <9409201254.AA21592@nagrs3.nag.co.uk>
--* To: asbugs@watson.ibm.com
--* Subject: [9] Wrong argument mentioned in error message

--@ Fixed  by:  SSD   Fri Nov 11 11:22:51 EST 1994 
--@ Tested by:  none 
--@ Summary:    Corrected counting of arguments to apply in error reporting code. 

-- Command line: asharp tt
-- Version: 0.37.0
-- Original bug file name: /home/red5/miker/Axiom/ASdoc/tt

--+ "tt", line 5:         sql.n  -- the (n)th component of sql
--+               ............^
--+ [L5 C13] #1 (Error) Argument 1 of `apply' did not match with any possible parame
--+ ter type.
--+     The rejected type is Integer.
--+     Expected one of:
--+       -- SingleInteger
--+       -- Enumeration(first: Type)
--+       -- Enumeration(rest: Type)
--+
--+ "Argument 1" should be "Argument 2" in this error message.
#include "aslib"
square(n: Integer): Integer == {
        sql: List Integer := [1, 4, 9, 16, 25];
        if n < 1 or n > 5 then error "Value out of range";
        sql.n  -- the (n)th component of sql
}