Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.114.2.38 -r1.114.2.39
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	13 Dec 2021 13:26:39 -0000	1.114.2.38
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	10 Feb 2022 21:33:44 -0000	1.114.2.39
@@ -1887,7 +1887,7 @@
         select package_id
           from apm_package_types t,
                apm_packages p
-         where t.singleton_p
+         where t.singleton_p = 't'
            and t.package_key = p.package_key
            and t.package_key = :package_key}]
     } {
@@ -2028,8 +2028,9 @@
     db_foreach package_types {
          select package_key, pretty_name
          from apm_package_types t
-         where not (singleton_p and exists (select 1 from apm_packages
-                                             where package_key = t.package_key))
+         where not (singleton_p = 't'
+                    and exists (select 1 from apm_packages
+                                where package_key = t.package_key))
          order by pretty_name
     } {
         lappend options [subst {<option value="$package_key">$pretty_name</option>}]