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.2.2 -r1.16.2.3
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	18 Jun 2008 06:51:18 -0000	1.16.2.2
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	20 Jun 2008 08:25:42 -0000	1.16.2.3
@@ -594,7 +594,7 @@
     @param with_subtypes return subtypes as well
     @param count return the query for counting the solutions
     @param folder_id parent_id
-    @param publish_status one of 'live', 'ready', or 'production'
+    @param publish_status one of 'live', 'ready' or 'production'
     @param base_table typically automatic view, must contain title and revision_id
     @return sql query
   } {
@@ -824,7 +824,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} {
@@ -873,8 +873,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
     }
   }