Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -N -r1.68.2.15 -r1.68.2.16
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	31 Aug 2020 12:42:21 -0000	1.68.2.15
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	1 Sep 2020 17:42:50 -0000	1.68.2.16
@@ -323,8 +323,11 @@
     @creation-date 2000-02-07
 } {
     return [db_string sub_type_exists_p {
-        select exists (select 1 from acs_object_types
-                              where supertype = :object_type) from dual
+        select case when exists
+        (select 1 from acs_object_types
+         where supertype = :object_type)
+        then 1 else 0 end
+        from dual
     }]
 }