Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.91 -r1.92
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	18 Aug 2008 12:10:52 -0000	1.91
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	17 Sep 2008 10:14:20 -0000	1.92
@@ -100,8 +100,7 @@
       set new_name [$data set name]
       if {$old_name ne $new_name} {
         #my msg "rename from $old_name to $new_name"
-        db_dml [my qn update_rename] "update cr_items set name = :new_name \
-                where item_id = [$data set item_id]"
+        $data rename -old_name $old_name -new_name $new_name
       }
     }
     return [$data set item_id]