Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	23 Jan 2004 12:44:54 -0000	1.21
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	24 Jan 2004 13:41:00 -0000	1.22
@@ -119,7 +119,7 @@
 }
 
 
-ad_proc -private permission::permission_thread_cache_flush {
+ad_proc -private permission::permission_thread_cache_flush {} {
     Flush thread cache
 } {
     global permission__permission_p__cache
@@ -134,7 +134,7 @@
     require that party X have privilege Y on object Z
 } {
     if {[empty_string_p $party_id]} {
-        set party_id [ad_conn user_id]
+        set party_id [ad_conn user_id
     }
 
     if {![permission_p -party_id $party_id -object_id $object_id -privilege $privilege]} {