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.3 -r1.13.2.4
--- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	3 Mar 2020 17:47:40 -0000	1.13.2.3
+++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	3 Mar 2020 18:38:15 -0000	1.13.2.4
@@ -129,6 +129,19 @@
                     }
                 }
             }
+            5.10.0d19 5.10.0d20 {
+                if {[db_driverkey ""] eq "postgresql"} {
+                    db_transaction {
+                        db_foreach id_column {select id_column from acs_object_types} {
+                            set id_column_lc [string tolower $id_column]
+                            if {$id_column_lc ne $id_column} {
+                                ns_log notice "Fix case discrepancy in id_column attribute of acs_object_types: $id_column -> $id_column_lc"
+                                db_dml to_lower {update acs_object_types set id_column=:id_column_lc where id_column=:id_column}
+                            }
+                        }
+                    }
+                }
+            }
         }
 }