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.9 -r1.10
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	29 Oct 2003 15:03:46 -0000	1.9
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	29 Oct 2003 16:12:42 -0000	1.10
@@ -44,7 +44,7 @@
     if {![info exists creation_user_id]} { set creation_user_id [ad_conn user_id] }
     if {![info exists creation_ip]} { set creation_ip [ad_conn peeraddr] }
 
-    if {[info exists additional_properties]} {
+    if { [exists_and_not_null additional_properties] } {
         set addtnl_properties ", [bcms::parse_properties -properties $additional_properties -return_format insert_columns]"
         set addtnl_values ", [bcms::parse_properties -properties $additional_properties -return_format insert_values]"
     } else {