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 -r1.38 -r1.39
--- openacs-4/packages/forums/www/message-post.tcl	20 Sep 2008 12:10:28 -0000	1.38
+++ openacs-4/packages/forums/www/message-post.tcl	23 Oct 2008 16:53:56 -0000	1.39
@@ -53,12 +53,12 @@
 ##############################
 # Calculate users rights and forums policy
 #
-set anonymous_allowed_p [expr ($forum_id eq "" || \
+set anonymous_allowed_p [expr {($forum_id eq "" || \
                                [forum::security::can_post_forum_p \
                                   -forum_id $forum_id -user_id 0]) && \
                               ($parent_id eq "" || \
                                [forum::security::can_post_message_p \
-                                  -message_id $parent_id -user_id 0])]
+                                  -message_id $parent_id -user_id 0])}]
 
 set attachments_enabled_p [forum::attachments_enabled_p]