Index: openacs-4/packages/forums/tcl/forums-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-security-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/forums/tcl/forums-security-procs.tcl	27 Apr 2009 20:25:32 -0000	1.12
+++ openacs-4/packages/forums/tcl/forums-security-procs.tcl	15 Jan 2010 20:04:55 -0000	1.13
@@ -63,11 +63,11 @@
         {-forum_id:required}
     } {
         if { $user_id eq "" } {
-            set magic_id [acs_magic_object registered_users]
+            set magic_id [acs_magic_object unregistered_visitor]
             return [expr { [permission::permission_p -party_id $user_id -object_id $forum_id -privilege admin] || [permission::permission_p -party_id $magic_id -object_id $forum_id -privilege create]} ]
         } else {
             return [permission::permission_p -party_id $user_id -object_id $forum_id -privilege create]
-        }
+       }
     }
 
     ad_proc -public require_post_forum {
@@ -84,7 +84,7 @@
         {-message_id:required}
     } {
         if { $user_id eq "" } {
-            set magic_id [acs_magic_object registered_users]
+            set magic_id [acs_magic_object unregistered_visitor]
             return [expr { [permission::permission_p -party_id $magic_id -object_id $message_id -privilege write] || [permission::permission_p -party_id $user_id -object_id $message_id -privilege admin] } ]
         } else {
             return [permission::permission_p -party_id $user_id -object_id $message_id -privilege write]