Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	7 Aug 2017 23:47:58 -0000	1.27
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	7 Nov 2017 11:24:05 -0000	1.28
@@ -18,13 +18,9 @@
     @author Michael Bryzek (mbryzek@arsdigita.com)
     @creation-date 12/30/2000
 } {
-    return [db_string object_type_dynamic_p {
-        	select case when exists (select 1 
-                                   from acs_object_types t
-                                  where t.dynamic_p = 't'
-                                    and t.object_type = :object_type)
-	            then 1 else 0 end
-	  from dual
+    return [db_0or1row object_type_dynamic_p {
+        select 1 from acs_object_types
+         where dynamic_p and object_type = :object_type
     }]
 }