Index: openacs-4/packages/lars-blogger/www/entry-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-chunk.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/lars-blogger/www/entry-chunk.tcl	14 Dec 2003 11:10:44 -0000	1.13
+++ openacs-4/packages/lars-blogger/www/entry-chunk.tcl	17 Dec 2003 16:28:06 -0000	1.14
@@ -44,7 +44,7 @@
 set blog(publish_url) "${package_url}entry-publish?[export_vars { entry_id return_url }]"
 set blog(revoke_url) "${package_url}entry-revoke?[export_vars { entry_id return_url }]"
 
-set blog(write_p) [permission::write_permission_p -object_id $blog(entry_id) -creation_user $blog(user_id)]
+set blog(write_p) [permission::write_permission_p -object_id $blog(entry_id) -creation_user $blog(user_id) -party_id [ad_conn untrusted_user_id]]
 
 if { [empty_string_p $screen_name] } {
     set blog(permalink_url) "${package_url}one-entry?[export_vars { entry_id }]"