Index: openacs-4/packages/acs-admin/www/auth/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/index.tcl,v
diff -u -N -r1.14 -r1.14.2.1
--- openacs-4/packages/acs-admin/www/auth/index.tcl	15 Oct 2018 16:52:00 -0000	1.14
+++ openacs-4/packages/acs-admin/www/auth/index.tcl	13 Mar 2019 08:41:27 -0000	1.14.2.1
@@ -124,7 +124,7 @@
     from   auth_authorities
     order  by sort_order
 } {
-    set toggle_enabled_p [ad_decode $enabled_p "t" "f" "t"]
+    set toggle_enabled_p [expr {!$enabled_p}]
     set enabled_p_url [export_vars -base authority-set-enabled-p { authority_id {enabled_p $toggle_enabled_p} }]
     set delete_url [export_vars -base authority-delete { authority_id }]
     set sort_order_url_up [export_vars -base authority-set-sort-order { authority_id {direction up} }]
Index: openacs-4/packages/acs-admin/www/install/install-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/install/install-2.tcl,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/acs-admin/www/install/install-2.tcl	2 Feb 2018 00:04:50 -0000	1.6
+++ openacs-4/packages/acs-admin/www/install/install-2.tcl	13 Mar 2019 08:49:17 -0000	1.6.2.1
@@ -128,12 +128,12 @@
         }
         comment {
             label "Error Message"
-            hide_p {[ad_decode $problems_p 1 0 1]}
+            hide_p {[expr {!$problems_p}]}
         }
         extra_p {
             label "Added"
-            display_eval {[ad_decode $extra_p 1 "*" ""]}
-            hide_p {[ad_decode $extras_p 1 0 1]}
+            display_eval {[expr {$extra_p ? "*" : ""}]}
+            hide_p {[expr {!$extras_p}]}
             html { align center }
         }
     }