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 -N -r1.9.4.1 -r1.9.4.2
--- openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl	9 Sep 2013 16:44:26 -0000	1.9.4.1
+++ openacs-4/packages/acs-tcl/tcl/object-type-procs.tcl	29 Sep 2013 14:55:32 -0000	1.9.4.2
@@ -34,7 +34,7 @@
 
     set result ""
 
-    if { [exists_and_not_null object_type] } {
+    if { [info exists object_type] && $object_type ne "" } {
         set sql [db_map object_type_not_null]
 	set join_string " > "
     } else {