Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -N -r1.64 -r1.64.2.1
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	22 Oct 2018 17:33:10 -0000	1.64
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	5 Mar 2019 14:43:39 -0000	1.64.2.1
@@ -223,7 +223,7 @@
                  }
              }
              if { $counter > 0 } {
-                 append out "$counter database command[ad_decode $counter 1 " taking" "s totalling"] [format {%.f} $total] ms<br>"
+                 append out "$counter database command[expr {$counter == 1 ? " taking" : "s totalling"}] [format {%.f} $total] ms<br>"
              }
          }
 
@@ -585,7 +585,7 @@
     @author Lars Pind (lars@pinds.com)
     @creation-date 31 August 2000
 } {
-    ns_log Notice "Developer-support user-switching [ad_decode $enabled_p 1 enabled disabled]"
+    ns_log Notice "Developer-support user-switching [expr {$enabled_p == 1 ? "enabled" : "disabled"}]"
     nsv_set ds_properties user_switching_enabled_p $enabled_p
 }
 
@@ -595,7 +595,7 @@
     @author Lars Pind (lars@pinds.com)
     @creation-date 31 August 2000
 } {
-    ns_log Notice "Developer-support profiling stats [ad_decode $enabled_p 1 "enabled" "disabled"]"
+    ns_log Notice "Developer-support profiling stats [expr {$enabled_p == 1 ? "enabled" : "disabled"}]"
     nsv_set ds_properties profiling_enabled_p $enabled_p
 }
 
@@ -605,7 +605,7 @@
     @author Lars Pind (lars@pinds.com)
     @creation-date 31 August 2000
 } {
-    ns_log Notice "Developer-support database stats [ad_decode $enabled_p 1 "enabled" "disabled"]"
+    ns_log Notice "Developer-support database stats [expr {$enabled_p == 1 ? "enabled" : "disabled"}]"
     nsv_set ds_properties database_enabled_p $enabled_p
 }
 
@@ -615,7 +615,7 @@
     @author Lars Pind (lars@pinds.com)
     @creation-date 31 August 2000
 } {
-    ns_log Notice "Developer-support adp reveal stats [ad_decode $enabled_p 1 "enabled" "disabled"]"
+    ns_log Notice "Developer-support adp reveal stats [expr {$enabled_p == 1 ? "enabled" : "disabled"}]"
     nsv_set ds_properties adp_reveal_enabled_p $enabled_p
 }