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.23 -r1.24
--- openacs-4/packages/forums/www/message-post.tcl	21 Sep 2003 19:58:58 -0000	1.23
+++ openacs-4/packages/forums/www/message-post.tcl	21 Sep 2003 20:03:44 -0000	1.24
@@ -124,7 +124,7 @@
         set message(html_p) $html_p
         set message(subject) $subject
         set message(content) $content
-        if { $anonymous_p } {
+        if { [template::util::is_true $anonymous_p] } {
             set user_id 0
         }
         set message(user_id) $user_id