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.17 -r1.18
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	9 Feb 2004 14:48:44 -0000	1.17
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	10 Feb 2004 16:03:52 -0000	1.18
@@ -90,7 +90,7 @@
     @param additional_properites   a list of additional properties / columns to insert   format: {property value ... property value}
                                    {property:noquote value} will directly use what is value
 } {
-    if { ![info exists creation_user] } { set creation_user_id [ad_conn user_id] }
+    if { ![info exists creation_user] } { set creation_user [ad_conn user_id] }
     if { ![info exists creation_ip] } { set creation_ip [ad_conn peeraddr] }
 
     if { ![info exists content_type] } {