Index: openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl	15 Jun 2018 08:35:08 -0000	1.14
+++ openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl	15 Jun 2018 08:39:48 -0000	1.15
@@ -12,7 +12,7 @@
 
 ad_proc -public acs_object_type_hierarchy {
 
-    -object_type
+    { -object_type "" }
     { -indent_string " " }
     { -indent_width "4" }
     { -join_string "<br>" }
@@ -34,23 +34,23 @@
 
     set result ""
 
-    if { [info exists object_type] && $object_type ne "" } {
+    if { $object_type ne "" } {
         set sql [db_map object_type_not_null]
-	set join_string "&nbsp;&gt;&nbsp;"
+        set join_string "&nbsp;&gt;&nbsp;"
     } else {
         set sql [db_map object_type_is_null]
     }
 
     set i 0
     db_foreach object_types "$sql" {
 
-	if { $i > 0 } {
-	    append result $join_string
-	}
-	incr i
-	set href [export_vars -base ./one {object_type}]
-	append result [subst {\n    $indent<a href="[ns_quotehtml $href]">[lang::util::localize $pretty_name]</a>}]
-	append result $additional_html
+        if { $i > 0 } {
+            append result $join_string
+        }
+        incr i
+        set href [export_vars -base ./one {object_type}]
+        append result [subst {\n    $indent<a href="[ns_quotehtml $href]">[lang::util::localize $pretty_name]</a>}]
+        append result $additional_html
     }
 
     return $result
@@ -61,7 +61,7 @@
     -object_type:required
     -array:required
 } {
-    Get info about an object type. Returns columns 
+    Get info about an object type. Returns columns
 
     <ul>
       <li>object_type,
@@ -133,7 +133,7 @@
 
     Allow caching of the table_name as it is unlikely to change without a restart of the server
     (which is mandatory after an upgrade)
-    
+
 } {
     return [util_memoize [list acs_object_type::get_table_name_not_cached -object_type $object_type]]
 }