Index: openacs-4/packages/acs-subsite/www/admin/group-types/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/new.tcl,v
diff -u -r1.7 -r1.7.2.1
--- openacs-4/packages/acs-subsite/www/admin/group-types/new.tcl	19 Jan 2018 14:09:48 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/group-types/new.tcl	13 Mar 2019 11:22:05 -0000	1.7.2.1
@@ -64,8 +64,8 @@
         incr exception_count
         append exception_text \
             "<li>The specified object type, $object_type, already exists. " \
-            [ad_decode $safe_object_type $object_type "" \
-                 "Note that we converted the object type to \"$safe_object_type\" to ensure that the name would be safe for the database."] \
+            [expr {$safe_object_type eq $object_type ? "" :
+                   "Note that we converted the object type to \"$safe_object_type\" to ensure that the name would be safe for the database."}] \
             "Please back up and choose another.</li>"
     } else {
         # let's make sure the names are unique
Index: openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl,v
diff -u -r1.13 -r1.13.2.1
--- openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl	7 Apr 2018 19:30:45 -0000	1.13
+++ openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl	13 Mar 2019 11:27:53 -0000	1.13.2.1
@@ -28,13 +28,13 @@
 <ul>
   <li>Pretty Name: [lang::util::localize $pretty_name]</li>
   <li>Pretty Plural: [lang::util::localize $pretty_plural]</li>
-  <li>Abstract: [ad_decode $abstract_p "f" "False" "True"]</li>
-  <li>Dynamic: [ad_decode $dynamic_p "f" "False" "True"]</li>
-  [ad_decode $table_name "" "" "<li>Table Name: $table_name</li>"]
-  [ad_decode $id_column "" "" "<li>Primary Key: $id_column</li>"]
-  [ad_decode $name_method "" "" "<li>Name Method: $name_method</li>"]
-  [ad_decode $type_extension_table "" "" "<li>Helper Table: $type_extension_table</li>"]
-  [ad_decode $package_name "" "" "<li>Package Name: $package_name</li>"]
+  <li>Abstract: [expr {$abstract_p ? "True" : "False"}]</li>
+  <li>Dynamic: [expr {$dynamic_p ? "True" : "False"}]</li>
+  [expr {$table_name eq "" ? "" : "<li>Table Name: $table_name</li>"}]
+  [expr {$id_column eq "" ? "" : "<li>Primary Key: $id_column</li>"}]
+  [expr {$name_method eq "" ? "" : "<li>Name Method: $name_method</li>"}]
+  [expr {$type_extension_table eq "" ? "" : "<li>Helper Table: $type_extension_table</li>"}]
+  [expr {$package_name eq "" ? "" : "<li>Package Name: $package_name</li>"}]
 </ul>
 }]