Index: openacs-4/packages/bug-tracker/tcl/bug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	17 Jun 2010 18:51:45 -0000	1.28
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	14 Mar 2011 17:49:35 -0000	1.29
@@ -192,9 +192,13 @@
                 -comment_mime_type $desc_format \
 		-user_id $user_id \
 		-assignment [array get assign_array] \
-        -package_id $package_id]
+                -package_id $package_id]
     
-    return $bug_id
+        if {[lindex [bug_tracker::access_policy] 1] eq "user_bugs"} {
+            bug_tracker::grant_direct_read_permission -bug_id $bug_id -party_id $user_id
+        }
+
+        return $bug_id
     }
 }