Index: openacs-4/packages/acs-tcl/tcl/object-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-procs.tcl,v diff -u -N -r1.14.2.8 -r1.14.2.9 --- openacs-4/packages/acs-tcl/tcl/object-procs.tcl 15 Jul 2022 13:58:40 -0000 1.14.2.8 +++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl 29 Jul 2022 18:53:40 -0000 1.14.2.9 @@ -196,14 +196,14 @@ db_0or1row check_types [subst -nocommands { with recursive hierarchy as ( - select o.object_type, t.supertype + select o.object_type::varchar(1000), t.supertype from acs_objects o, acs_object_types t where o.object_id = :object_id and o.object_type = t.object_type union - select t.object_type, t.supertype + select t.object_type::varchar(1000), t.supertype from acs_object_types t, hierarchy h where :no_hierarchy_p = 'f'