Index: openacs-4/packages/categories/lib/tree-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/tree-form.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/categories/lib/tree-form.tcl	7 Aug 2017 23:48:05 -0000	1.5
+++ openacs-4/packages/categories/lib/tree-form.tcl	1 Mar 2019 10:49:28 -0000	1.5.2.1
@@ -7,7 +7,7 @@
 set languages [lang::system::get_locale_options]
 
 ad_form -name tree_form \
-    -mode [ad_decode [ad_form_new_p -key tree_id] 1 edit display] \
+    -mode [expr {[ad_form_new_p -key tree_id] ? "edit" : "display"}] \
     -action tree-form \
     -export { locale object_id ctx_id } \
     -form {
Index: openacs-4/packages/categories/www/cadmin/permission-manage.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/permission-manage.tcl,v
diff -u -r1.9 -r1.9.2.1
--- openacs-4/packages/categories/www/cadmin/permission-manage.tcl	29 Jun 2018 17:27:18 -0000	1.9
+++ openacs-4/packages/categories/www/cadmin/permission-manage.tcl	1 Mar 2019 10:51:02 -0000	1.9.2.1
@@ -28,7 +28,7 @@
 set url_vars [export_vars {tree_id object_id locale}]
 set package_id [ad_conn package_id]
 set admin_p [permission::permission_p -object_id $package_id -privilege category_admin]
-set sw_tree_p [ad_decode $tree(site_wide_p) f 0 1]
+set sw_tree_p [expr {$tree(site_wide_p) ne "f"}]
 
 ad_return_template