Index: openacs-4/packages/categories/www/cadmin/category-parent-change.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-parent-change.tcl,v diff -u -r1.8.2.1 -r1.8.2.2 --- openacs-4/packages/categories/www/cadmin/category-parent-change.tcl 29 Nov 2019 14:04:08 -0000 1.8.2.1 +++ openacs-4/packages/categories/www/cadmin/category-parent-change.tcl 29 Nov 2019 14:32:04 -0000 1.8.2.2 @@ -23,8 +23,8 @@ set category_name [category::get_name $category_id $locale] set page_title "Change parent category of \"$category_name\"" set context_bar [category::context_bar $tree_id $locale \ - [value_if_exists object_id] \ - [value_if_exists ctx_id]] + [expr {[info exists object_id] ? $object_id : ""}] \ + [expr {[info exists ctx_id] ? $ctx_id : ""}]] lappend context_bar "Change parent"