Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	28 Feb 2002 01:10:08 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	1 Mar 2002 15:01:02 -0000	1.7
@@ -388,7 +388,7 @@
 	db_transaction {
 
             # DRB: Older versions of this code did a delete/insert pair in an attempt
-            # to guard against duplicate insertions.  This didn't work if there were
+            # to guard against duplicate insertions.  This didn't work if there was
             # no value for this property in the table and two transactions ran in
             # parallel.  The problem is that without an existing row the delete had
             # nothing to lock on, thus allowing the two inserts to conflict.  This
@@ -400,8 +400,8 @@
 
             set clob_insert_dml [db_map prop_insert_dml_clob]
 
-            if { $clob == "t" && ![empty_string_p $clob_dml] } {
-                if { [catch {db_dml dummy $clob_dml -clobs [list $value]} errmsg] } {
+            if { $clob == "t" && ![empty_string_p $clob_insert_dml] } {
+                if { [catch {db_dml dummy $clob_insert_dml -clobs [list $value]} errmsg] } {
                     db_dml prop_update_dml_clob "" -clobs [list $value]
                 }
             } else {