Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/forums/tcl/messages-procs.tcl	10 Jul 2002 20:18:28 -0000	1.8
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	25 Jul 2002 19:54:31 -0000	1.9
@@ -18,6 +18,7 @@
         {-content:required}
         {-html_p "f"}
         {-user_id ""}
+	{-posting_date ""}
     } {
         create a new message
     } {
@@ -29,7 +30,7 @@
 
         # Prepare the variables for instantiation
         set extra_vars [ns_set create]
-        oacs_util::vars_to_ns_set -ns_set $extra_vars -var_list {forum_id message_id parent_id subject content html_p user_id}
+        oacs_util::vars_to_ns_set -ns_set $extra_vars -var_list {forum_id message_id parent_id subject content html_p user_id posting_date}
 
         db_transaction {
             set message_id [package_instantiate_object -extra_vars $extra_vars forums_message]