Index: src/backend/parser/parse_coerce.c
===================================================================
RCS file: /home/rbt/work/postgresql/cvs/pgsql-server/src/backend/parser/parse_coerce.c,v
retrieving revision 2.97
diff -c -r2.97 parse_coerce.c
*** src/backend/parser/parse_coerce.c	26 May 2003 00:11:27 -0000	2.97
--- src/backend/parser/parse_coerce.c	8 Jun 2003 13:54:06 -0000
***************
*** 599,609 ****
  	List	   *l;
  
  	Assert(typeids != NIL);
! 	ptype = lfirsto(typeids);
  	pcategory = TypeCategory(ptype);
  	foreach(l, lnext(typeids))
  	{
! 		Oid			ntype = lfirsto(l);
  
  		/* move on to next one if no new information... */
  		if ((ntype != InvalidOid) && (ntype != UNKNOWNOID) && (ntype != ptype))
--- 599,609 ----
  	List	   *l;
  
  	Assert(typeids != NIL);
! 	ptype = getBaseType(lfirsto(typeids));
  	pcategory = TypeCategory(ptype);
  	foreach(l, lnext(typeids))
  	{
! 		Oid			ntype = getBaseType(lfirsto(l));
  
  		/* move on to next one if no new information... */
  		if ((ntype != InvalidOid) && (ntype != UNKNOWNOID) && (ntype != ptype))