Index: openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl,v
diff -u -r1.26.2.3 -r1.26.2.4
--- openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl	5 Jan 2021 17:10:17 -0000	1.26.2.3
+++ openacs-4/packages/acs-tcl/tcl/parameter-procs.tcl	2 Sep 2021 17:10:27 -0000	1.26.2.4
@@ -261,11 +261,7 @@
     #    packages.
     #
     if {$value eq ""} {
-        if {[db_string check_singleton {
-            select 1 from apm_package_types
-            where package_key = :package_key
-            and singleton_p = 't'
-        } -default 0]} {
+        if {[apm_package_singleton_p $package_key]} {
             set value [parameter::get \
                            -localize=$localize_p \
                            -boolean=$boolean_p \