Index: openacs-4/packages/acs-bootstrap-installer/installer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/acs-bootstrap-installer/installer.tcl	19 Jan 2018 21:23:51 -0000	1.28
+++ openacs-4/packages/acs-bootstrap-installer/installer.tcl	15 May 2018 11:41:54 -0000	1.29
@@ -387,30 +387,6 @@
     cd [file join $::acs::rootdir packages acs-kernel sql [db_type]]
     db_source_sql_file -callback apm_ns_write_callback acs-kernel-create.sql
 
-    # DRB: Now initialize the APM's table of known database types.  This is
-    # butt-ugly.  We could have apm-create.sql do this but that would mean
-    # adding a new database type would require editing two places (the very
-    # obvious list in bootstrap.tcl and the less-obvious list in apm-create.sql).
-    # On the other hand, this is ugly because now this code knows about the
-    # apm datamodel as well as the existence of the special acs-kernel module.
-
-    set apm_db_types_exists [db_string db_types_exists "
-        select case when count(*) = 0 then 0 else 1 end from apm_package_db_types"]
-
-    if { !$apm_db_types_exists } {
-        ns_log Notice "Populating apm_package_db_types"
-        foreach known_db_type [db_known_database_types] {
-            set db_type [lindex $known_db_type 0]
-            set db_pretty_name [lindex $known_db_type 2]
-            db_dml insert_apm_db_type {
-                insert into apm_package_db_types
-                (db_type_key, pretty_db_name)
-                values
-                (:db_type, :db_pretty_name)
-            }
-        }
-    }
-
     ns_write "</pre></blockquote>
 
     Done installing the OpenACS kernel data model.<p>