Index: openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl	25 Oct 2001 23:49:20 -0000	1.6
+++ openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl	31 Oct 2001 20:42:07 -0000	1.7
@@ -86,7 +86,7 @@
     set item_id [db_exec_plsql insert_new_content "
  		begin
 		  return content_item__new(
-		    'acs-mail message $body_id',  -- new__name
+		    varchar 'acs-mail message $body_id',  -- new__name
 		    null,                     -- new__parent_id
 		    null,                     -- new__item_id
 		    null,                     -- new__locale
@@ -139,7 +139,7 @@
     set item_id [db_exec_plsql insert_new_content "
  		begin
 		  return content_item__new(
-		    'acs-mail message $body_id', -- new__name
+		    varchar 'acs-mail message $body_id', -- new__name
 		    null,                     -- new__parent_id
 		    null,                     -- new__item_id
 		    null,                     -- new__locale