Index: openacs-4/packages/forums/tcl/messages-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/forums/tcl/messages-procs.xql	20 Sep 2002 21:31:26 -0000	1.3
+++ openacs-4/packages/forums/tcl/messages-procs.xql	25 Mar 2004 16:16:58 -0000	1.4
@@ -9,6 +9,14 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="forum::message::edit.update_message_title">
+        <querytext>
+            update acs_objects 
+            set title = :subject
+            where object_id = :message_id and object_type = 'forums_message'
+        </querytext>
+    </fullquery>
+
     <fullquery name="forum::message::edit.update_message">
         <querytext>
             update forums_messages