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.11 -r1.12
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	20 Sep 2002 21:45:10 -0000	1.11
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	29 Jan 2003 15:50:06 -0000	1.12
@@ -59,7 +59,7 @@
         }
         if { $no_cache_p || ![permission::cache_p] } {
             util_memoize_flush "permission::permission_p_not_cached -party_id $party_id -object_id $object_id -privilege $privilege"
-            permission::permission_p_not_cached -party_id $party_id -object_id $object_id -privilege $privilege
+            return [permission::permission_p_not_cached -party_id $party_id -object_id $object_id -privilege $privilege]
         } else { 
             return [util_memoize "permission::permission_p_not_cached -party_id $party_id -object_id $object_id -privilege $privilege"]
         }