Index: openacs-4/packages/acs-mail/sql/postgresql/acs-mail-packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/sql/postgresql/acs-mail-packages-create.sql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-mail/sql/postgresql/acs-mail-packages-create.sql	12 Mar 2004 18:48:51 -0000	1.9
+++ openacs-4/packages/acs-mail/sql/postgresql/acs-mail-packages-create.sql	24 Jul 2004 15:04:37 -0000	1.10
@@ -202,7 +202,8 @@
 
 create or replace function acs_mail_body__body_p(integer) 
 returns boolean as '
-	p_object_id		alias for $1;
+declare
+    p_object_id		alias for $1;
     v_check_body_id integer;
 begin
 	select count(body_id) into v_check_body_id
