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.27 -r1.28
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	22 Sep 2003 14:36:04 -0000	1.27
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	23 Sep 2003 17:44:36 -0000	1.28
@@ -124,13 +124,11 @@
                 ns_log Notice "lang::message::register - Giving message for key $message_key in locale $locale an upgrade status of $message_upgrade_status"
             }
 
-            if { [ad_conn isconnected] } {
-                set creation_user [ad_conn user_id]
-            } else {
+            if { [catch {set creation_user [ad_conn user_id]}] } {
                 set creation_user [db_null]
             }
- 
-            # avoiding bug#2011927 from Oracle.
+
+             # avoiding bug#2011927 from Oracle.
             if { [empty_string_p [string trim $message]] } {
                 db_dml lang_message_insert_null_msg {}
             } else {