Index: openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl,v
diff -u -r1.13.2.2 -r1.13.2.3
--- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	3 Mar 2020 17:35:54 -0000	1.13.2.2
+++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	3 Mar 2020 17:47:40 -0000	1.13.2.3
@@ -117,12 +117,14 @@
                 }
             }
             5.10.0d18 5.10.0d19 {
-                db_transaction {
-                    db_foreach table_name {select table_name from acs_object_types} {
-                        set table_name_lc [string tolower $table_name]
-                        if {$table_name_lc ne $table_name} {
-                            ns_log notice "Fix case discrepancy in table_name attribute of acs_object_types: $table_name -> $table_name_lc"
-                            db_dml to_lower {update acs_object_types set table_name=:table_name_lc where table_name=:table_name}
+                if {[db_driverkey ""] eq "postgresql"} {
+                    db_transaction {
+                        db_foreach table_name {select table_name from acs_object_types} {
+                            set table_name_lc [string tolower $table_name]
+                            if {$table_name_lc ne $table_name} {
+                                ns_log notice "Fix case discrepancy in table_name attribute of acs_object_types: $table_name -> $table_name_lc"
+                                db_dml to_lower {update acs_object_types set table_name=:table_name_lc where table_name=:table_name}
+                            }
                         }
                     }
                 }