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.22 -r1.23
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	24 Jan 2004 13:41:00 -0000	1.22
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	24 Jan 2004 14:06:42 -0000	1.23
@@ -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]} {