Index: openacs-4/packages/forums/tcl/messages-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs-postgresql.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/forums/tcl/messages-procs-postgresql.xql	7 Jan 2003 18:48:34 -0000	1.6
+++ openacs-4/packages/forums/tcl/messages-procs-postgresql.xql	14 Jan 2003 13:29:28 -0000	1.7
@@ -30,7 +30,7 @@
                    (select fm2.subject
                     from forums_messages fm2 
                     where fm2.message_id = forums_message__root_message_id(forums_messages.message_id)) as root_subject, 
-                   to_char(forums_messages.posting_date, 'Mon DD YYYY HH24:MI:SS') as posting_date
+                   to_char(forums_messages.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi
             from forums_messages
             where forums_messages.message_id= :message_id
         </querytext>
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.16 -r1.17
--- openacs-4/packages/forums/tcl/messages-procs.tcl	10 Jan 2003 15:12:59 -0000	1.16
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	14 Jan 2003 13:29:28 -0000	1.17
@@ -50,13 +50,13 @@
 	    
 	    if {![empty_string_p $original_message_id]} {
 		# The was a non-null message_id arguement
-		if {[db_string message_exists_p "
-		select count(message_id) 
-		from forums_messages 
-		where message_id = :message_id"]} {
-		    
+                if {[db_string message_exists_p  { *SQL* }]} {
 		    return $message_id
-		    
+                } else {
+                    # OK - it wasn't a simple double-click, so bomb
+                    ad_return_error \
+                        "OACS Internal Error" \
+                        "Error in forums::message::new - $errmsg"
 		}
 	    }
         }