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.112.2.10 -r1.112.2.11
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	23 Aug 2022 19:10:38 -0000	1.112.2.10
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	27 Feb 2023 18:40:21 -0000	1.112.2.11
@@ -98,7 +98,7 @@
     ${:data} save
     # Renaming is meant for cr_items and such
     if {[${:data} istype ::xo::db::CrItem]} {
-      set old_name [::xo::cc form_parameter __object_name ""]
+      set old_name [::xo::cc form_parameter __object_name:signed,convert ""]
       set new_name [${:data} set name]
       if {$old_name ne $new_name} {
         #
@@ -114,6 +114,8 @@
         if {$url ne ""} {
           :submit_link $url
         }
+      } else {
+        # :log "--- edit_data $old_name equals $new_name"
       }
     }
     return [${:data} set [:get_id_field]]
@@ -223,7 +225,7 @@
     set exports [list \
       [list object_type $object_type] \
                      [list folder_id ${:folder_id}] \
-                     [list __object_name $object_name]]
+                     [list __object_name [::security::parameter::signed $object_name]]]
     if {[info exists export]} {
       foreach pair $export {lappend exports $pair}
     }