Index: openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl,v
diff -u -N -r1.7 -r1.7.2.1
--- openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl	7 Aug 2017 23:47:58 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl	2 Jan 2020 17:43:52 -0000	1.7.2.1
@@ -9,7 +9,14 @@
 set page_title "New Application"
 set context [list [list "." "Site Map"] $page_title]
 
-set packages [db_list_of_lists package_types {}]
+set packages [db_list_of_lists package_types {
+    select pretty_name, package_key
+    from   apm_package_types t
+    where  not exists (select 1 from apm_packages
+                       where package_key = t.package_key) or
+           not t.singleton_p
+    order  by upper(pretty_name)
+}]
 
 ad_form -name application -cancel_url . -form {
     {package_key:text(select)