Index: openacs-4/packages/forums/tcl/forums-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-procs.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/packages/forums/tcl/forums-procs.tcl	15 Jun 2005 17:43:42 -0000	1.20
+++ openacs-4/packages/forums/tcl/forums-procs.tcl	8 Aug 2006 21:26:52 -0000	1.21
@@ -10,6 +10,7 @@
 
 namespace eval forum {}
 
+
 ad_proc -public forum::new {
     {-forum_id ""}
     {-name:required}
@@ -96,16 +97,16 @@
 } { 
     # JCD: this is potentially bad since we are 
     # just assuming registered_users is the 
-    # right group to be granting forum_write to.
+    # right group to be granting write to.
 
     if {![string equal closed $posting_policy]} { 
         permission::grant -object_id $forum_id \
             -party_id [acs_magic_object registered_users] \
-            -privilege forum_write 
+            -privilege write 
     } else { 
         permission::revoke -object_id $forum_id \
             -party_id [acs_magic_object registered_users] \
-            -privilege forum_write 
+            -privilege write 
     }
 
 } 
@@ -120,7 +121,7 @@
     # Give the public the right to ask new questions
     permission::grant -object_id $forum_id \
             -party_id $party_id \
-            -privilege forum_create
+            -privilege create
     util_memoize_flush_regexp  $forum_id
 }
 
@@ -134,7 +135,7 @@
     # Revoke the right from the public to ask new questions
     permission::revoke -object_id $forum_id \
             -party_id $party_id \
-            -privilege forum_create
+            -privilege create
     util_memoize_flush_regexp  $forum_id
 }
 
@@ -147,7 +148,7 @@
     }
     permission::permission_p -object_id $forum_id \
             -party_id $party_id \
-            -privilege forum_create
+            -privilege create
 }
 
 ad_proc -public forum::enable {