Index: src/backend/catalog/aclchk.c
===================================================================
RCS file: /projects/cvsroot/pgsql/src/backend/catalog/aclchk.c,v
retrieving revision 1.69
diff -c -r1.69 aclchk.c
*** src/backend/catalog/aclchk.c	2002/06/20 20:29:26	1.69
--- src/backend/catalog/aclchk.c	2002/07/13 05:41:56
***************
*** 389,395 ****
  		char		replaces[Natts_pg_proc];
  
  		oid = LookupFuncNameTypeNames(func->funcname, func->funcargs,
! 									  true, "GRANT");
  		relation = heap_openr(ProcedureRelationName, RowExclusiveLock);
  		tuple = SearchSysCache(PROCOID,
  							   ObjectIdGetDatum(oid),
--- 389,396 ----
  		char		replaces[Natts_pg_proc];
  
  		oid = LookupFuncNameTypeNames(func->funcname, func->funcargs,
! 									  true, stmt->is_grant ? "GRANT" : "REVOKE");
! 
  		relation = heap_openr(ProcedureRelationName, RowExclusiveLock);
  		tuple = SearchSysCache(PROCOID,
  							   ObjectIdGetDatum(oid),