Index: openacs-4/packages/acs-subsite/tcl/group-type-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs-oracle.xql,v
diff -u -N -r1.3.2.1 -r1.3.2.2
--- openacs-4/packages/acs-subsite/tcl/group-type-procs-oracle.xql	18 Mar 2019 16:07:55 -0000	1.3.2.1
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs-oracle.xql	3 Mar 2020 16:11:12 -0000	1.3.2.2
@@ -21,7 +21,7 @@
    object_type   => :group_type,
    pretty_name   => :pretty_name,
    pretty_plural => :pretty_plural,
-   table_name    => :table_name,
+   table_name    => upper(:table_name),
    id_column     => :id_column,
    package_name  => :package_name
  );
Index: openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl,v
diff -u -N -r1.12.2.1 -r1.12.2.2
--- openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	18 Mar 2019 16:07:55 -0000	1.12.2.1
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	3 Mar 2020 16:11:12 -0000	1.12.2.2
@@ -81,7 +81,7 @@
             }
         }
 
-        set table_name [string toupper "${group_type}_ext"]
+        set table_name "${group_type}_ext"
         # Since all group types are extensions of groups, maintain a
         # unique group_id primary key