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 -N -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl	7 Aug 2017 23:47:58 -0000	1.12
+++ openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl	7 Apr 2018 19:30:45 -0000	1.13
@@ -20,7 +20,7 @@
 set page_title "Details for type $pretty_name"
 set context [list [list index "Object Type Index"] "Details for type $pretty_name"]
 
-set page "[acs_object_type_hierarchy -object_type $object_type]"
+set page [acs_object_type_hierarchy -object_type $object_type]
 
 append page [subst {
 <p>
@@ -96,7 +96,7 @@
 "
     }
 
-if { ([info exists table_name] && $table_name ne "") } {
+if { $table_name ne "" } {
 
     set body [db_string table_comment {} -default ""]