Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -r1.45.2.9 -r1.45.2.10
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	30 Mar 2021 15:41:18 -0000	1.45.2.9
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	13 Jul 2022 09:54:32 -0000	1.45.2.10
@@ -629,25 +629,7 @@
     }
 }
 
-
 #
-### Deprecated procs
-#
-
-# apisano 2018-05-14: current code won't use this proc and is also not
-# clear why we should get from the database something we have in a
-# proc already. Commented code was the original one
-ad_proc -deprecated -public apm_db_type_keys {} {
-
-    Returns a list of valid database type keys.
-
-} {
-    return [lmap dbtype $::acs::known_database_types {lindex $dbtype 0}]
-    # return [util_memoize [list db_list db_type_keys {select db_type_key from apm_package_db_types}]]
-}
-
-
-#
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v
diff -u -r1.29.2.23 -r1.29.2.24
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	13 Jul 2022 09:44:04 -0000	1.29.2.23
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	13 Jul 2022 09:54:32 -0000	1.29.2.24
@@ -4336,6 +4336,17 @@
     return $joined_url
 }
 
+ad_proc -deprecated -public apm_db_type_keys {} {
+
+    Returns a list of valid database type keys.
+
+    @see db_known_database_types
+} {
+    return [lmap dbtype $::acs::known_database_types {lindex $dbtype 0}]
+    # return [util_memoize [list db_list db_type_keys {select db_type_key from apm_package_db_types}]]
+}
+
+
 ########################################################################
 # Functions based on undefined code
 ########################################################################
Index: openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl,v
diff -u -r1.18.2.3 -r1.18.2.4
--- openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl	20 Jan 2022 09:31:49 -0000	1.18.2.3
+++ openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl	13 Jul 2022 09:54:32 -0000	1.18.2.4
@@ -16,6 +16,10 @@
     Return 1 if the util_memoize cache has been initialized
     and is ready to be used and 0 otherwise.
 
+    util_memoize has now a failsafe mechanism when invoked before the
+    cache is there.
+
+    @see util_memoize
 } -
 
 if { [catch {ns_cache set util_memoize __util_memoize_installed_p 1} error] } {