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 -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'