Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.68.2.19 -r1.68.2.20
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	31 Jan 2022 16:33:58 -0000	1.68.2.19
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	1 Feb 2022 13:17:36 -0000	1.68.2.20
@@ -254,13 +254,8 @@
                 $old_message_array(conflict_p) \
                 $old_message_array(upgrade_status)
 
-            # Trying to avoid hitting Oracle bug#2011927
-            if { [string trim $message] eq "" } {
-                db_dml lang_message_update {}
-            } else {
-                set cols(message) [db_map message]
-                db_dml lang_message_update {} -clobs [list $message]
-            }
+            set cols(message) [db_map message]
+            db_dml lang_message_update {} -clobs [list $message]
         }
     } else {
         # Insert new message
@@ -282,12 +277,7 @@
             lappend val_clauses $cols($col)
         }
 
-        # avoiding bug#2011927 from Oracle.
-        if { [string trim $message] eq "" } {
-            db_dml lang_message_insert_null_msg {}
-        } else {
-            db_dml lang_message_insert {} -clobs [list $message]
-        }
+        db_dml lang_message_insert {} -clobs [list $message]
     }
 
     # Update the message catalog cache
@@ -1096,11 +1086,7 @@
     @author Simon Carstensen
     @creation-date 2003-08-12
 } {
-    if { [string trim $description] eq "" } {
-        db_dml update_description_insert_null {}
-    } else {
-        db_dml update_description {} -clobs [list $description]
-    }
+    db_dml update_description {} -clobs [list $description]
 }
 
 # Local variables:
Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.xql,v
diff -u -r1.11.2.1 -r1.11.2.2
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.xql	25 Aug 2020 13:38:12 -0000	1.11.2.1
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.xql	1 Feb 2022 13:17:36 -0000	1.11.2.2
@@ -38,21 +38,5 @@
         sync_time = current_timestamp
       </querytext>
   </partialquery>
-  
-  <fullquery name="lang::message::register.lang_message_insert_null_msg">
-    <querytext>
-      insert into lang_messages ([join $col_clauses ", "]) 
-      values ([join $val_clauses ", "])
-    </querytext>
-  </fullquery>
 
-  <fullquery name="lang::message::update_description.update_description_insert_null">
-    <querytext>
-      update lang_message_keys
-      set    description = null
-      where  message_key = :message_key
-      and    package_key = :package_key
-    </querytext>
-  </fullquery>
-
 </queryset>