Index: openacs-4/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/forums/www/message-post.tcl	10 Jan 2003 14:01:08 -0000	1.19
+++ openacs-4/packages/forums/www/message-post.tcl	20 Jan 2003 12:56:19 -0000	1.20
@@ -36,7 +36,7 @@
     -datatype text \
     -widget text \
     -html {size 60} \
-    -validate { {expr ![empty_string_p [string trim $value]]} {[_ forums.lt_Please_enter_a_subjec]} }
+    -validate { {expr ![empty_string_p [string trim $value]]} "[_ forums.lt_Please_enter_a_subjec]" }
 
 # we use ns_queryget to get the value of html_p because it won't be defined
 # until the next element -DaveB
@@ -123,7 +123,7 @@
         }
 
         set context [list [list "./forum-view?forum_id=$forum_id" "$forum(name)"]]
-        lappend context {[_ forums.Post_a_Message]}
+        lappend context "[_ forums.Post_a_Message]"
 
         ad_return_template message-post-confirm
         return