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.2.1 -r1.97.2.2
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	24 Sep 2015 10:59:08 -0000	1.97.2.1
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	24 Sep 2015 12:12:53 -0000	1.97.2.2
@@ -73,14 +73,6 @@
                                   [list type [$class pretty_name]]]
     }
 
-# It's a local variable that nobody uses... commented in doubt
-#     # check, if the specified fields are available from the data source
-#     # and ignore the unavailable entries
-#     set checked_fields [list]
-#     set available_atts [$class array names db_slot]
-#     #my log "-- available atts <$available_atts>"
-#     lappend available_atts [$class id_column] item_id
-
     if {![my exists fields]} {my mkFields}
     #my log --fields=[my fields]
   }
@@ -114,8 +106,19 @@
       set old_name [::xo::cc form_parameter __object_name ""]
       set new_name [$data set name]
       if {$old_name ne $new_name} {
+        #
+        # The item was renamed.
+        #
 	#my log "--- rename from $old_name to $new_name"
 	$data rename -old_name $old_name -new_name $new_name
+        #
+        # Check, whether we have to change the redirect url due to
+        # renaming. When the method returns non-empty use this value.
+        #
+        set url [$data changed_redirect_url]
+        if {$url ne ""} {
+          my submit_link $url
+        }
       }
     }
     return [$data set [my get_id_field]]