Index: openacs.org-dev/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/forums/tcl/messages-procs.tcl	9 Jul 2002 17:35:09 -0000	1.1
+++ openacs.org-dev/packages/forums/tcl/messages-procs.tcl	18 Jul 2002 13:41:55 -0000	1.2
@@ -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]