Index: openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	31 Oct 2003 08:05:44 -0000	1.12
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	31 Oct 2003 14:38:16 -0000	1.13
@@ -86,8 +86,7 @@
     @param content_type            content_type of the item, if not passed it will determine the content_type
     @param mime_type               mime type of this revision
     @param description             description of the revision
-    @param upload_tmpfile          
-    @param upload_filename
+    @param upload_file             a 'file' form builder datatype
     @param creation_user_id        user_id creating this item
     @param creation_user_ip        ip address which this item is created
     @param additional_properites   a list of additional properties / columns to insert   format: {property value ... property value}
@@ -133,6 +132,8 @@
         db_dml update_file_size "SQL"
     }
 
+    return $revision_id
+
 }
 
 ad_proc -public bcms::revision::list_revisions {