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.97 -r1.97.2.1
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	15 Jun 2015 19:25:56 -0000	1.97
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	24 Sep 2015 10:59:08 -0000	1.97.2.1
@@ -110,11 +110,11 @@
     my instvar data
     $data save
     # Renaming is meant for cr_items and such
-    if {[$data info commands rename] ne ""} {
+    if {[$data istype ::xo::db::CrItem]} {
       set old_name [::xo::cc form_parameter __object_name ""]
       set new_name [$data set name]
       if {$old_name ne $new_name} {
-	#my msg "rename from $old_name to $new_name"
+	#my log "--- rename from $old_name to $new_name"
 	$data rename -old_name $old_name -new_name $new_name
       }
     }