Index: openacs-4/packages/cms/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/cms/tcl/form-procs.tcl	17 Aug 2001 04:31:38 -0000	1.10
+++ openacs-4/packages/cms/tcl/form-procs.tcl	17 Aug 2001 23:33:53 -0000	1.11
@@ -607,7 +607,7 @@
 
 # @see add_revision
 
-ad_proc content::new_item { form_name { tmpfile "" } } {
+ad_proc content::new_item { form_name { storage_type text } { tmpfile "" } } {
 
   array set defaults [list item_id "" locale "" parent_id "" content_type "content_revision"]
 
@@ -797,7 +797,7 @@
 
   db_transaction {
 
-      db_dml $statement -bind $bind_vars
+      db_dml add_revision $statement -bind $bind_vars 
 
       if { ![string equal $tmpfile {}] } {