Index: openacs-4/www/site-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/site-master.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/www/site-master.tcl	16 Feb 2004 14:47:41 -0000	1.16
+++ openacs-4/www/site-master.tcl	17 May 2004 15:15:27 -0000	1.17
@@ -92,7 +92,7 @@
 }
 
 # Curriculum bar
-set curriculum_bar_p [llength [site_node::get_children -all -filters { package_key "curriculum" } -node_id $subsite_node_id]]
+set curriculum_bar_p [util_memoize [list llength [site_node::get_children -all -filters { package_key "curriculum" } -node_id $subsite_node_id]]]
 
 
 # Who's Online