Index: openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl,v
diff -u -N -r1.20.2.5 -r1.20.2.6
--- openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	1 Sep 2020 17:41:50 -0000	1.20.2.5
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	3 Sep 2020 09:16:41 -0000	1.20.2.6
@@ -17,14 +17,12 @@
     @creation-date 12/30/2000
 
 } {
-    set dynamic_p [db_string attribute_for_dynamic_object_p {
-        select case when exists
+    set dynamic_p [db_0or1row attribute_for_dynamic_object_p {
+        select 1 from dual where exists
         (select 1 from acs_attributes a, acs_object_types t
          where t.dynamic_p = 't'
          and a.object_type = t.object_type
          and a.attribute_id = :value)
-        then 1 else 0 end
-        from dual
     }]
     if {!$dynamic_p} {
         ad_complain "Attribute does not belong to a dynamic object and cannot be modified"