Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	29 Oct 2002 13:15:31 -0000	1.10
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	1 Nov 2002 21:10:56 -0000	1.11
@@ -292,6 +292,11 @@
     
         # Use the messages array to generate a new catalog file
         lang::catalog::export_messages_to_file $catalog_file_path [array get messages_array]
+
+        # Register the messages in the database so that it is in sync with the catalog file
+        foreach {message_key message_text} [array get messages_array] {
+            lang::message::register en_US $package_key $message_key $message_text
+        }
     
         return $number_of_replacements
     }