Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -N -r1.87 -r1.88
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 Jun 2018 09:10:14 -0000	1.87
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 Jun 2018 09:13:55 -0000	1.88
@@ -816,7 +816,7 @@
     @return true if object_id is a party
 
 } {
-    return [llength [party::get -party_id $object_id] != 0]
+    return [expr {[llength [party::get -party_id $object_id]] != 0}]
 }
 
 ad_proc -public party::flush_cache {