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.12.2.1
--- 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	19 Jan 2010 19:17:52 -0000	1.12.2.1
@@ -62,12 +62,7 @@
         {-user_id ""}
         {-forum_id:required}
     } {
-        if { $user_id eq "" } {
-            set magic_id [acs_magic_object registered_users]
-            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]
-        }
+        return [permission::permission_p -party_id $user_id -object_id $forum_id -privilege create]
     }
 
     ad_proc -public require_post_forum {
@@ -83,12 +78,7 @@
         {-user_id ""}
         {-message_id:required}
     } {
-        if { $user_id eq "" } {
-            set magic_id [acs_magic_object registered_users]
-            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]
-        }
+        return [permission::permission_p -party_id $user_id -object_id $message_id -privilege write]
     }
 
     ad_proc -public require_post_message {