Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	14 Mar 2008 19:34:00 -0000	1.16
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	17 Mar 2008 00:28:58 -0000	1.17
@@ -818,7 +818,7 @@
         lappend values $v
       }
       return "insert into [my set table_name]i ([join $attributes ,]) \
-                values ([join $values ,])"
+                values (:[join $values ,:])"
     }
 
     CrItem instproc fix_content {{-only_text false} revision_id content} {
@@ -867,8 +867,8 @@
         set sql "update [$domain table_name] \
                 set $att = :value \
 		where [$domain id_column] = $revision_id"
+        db_dml [my qn update_attribute-$att] $sql
       }
-      db_dml [my qn update_attribute-$att] $sql
     }
   }