Index: openacs-4/www/site-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/site-master.tcl,v
diff -u -r1.16.2.1 -r1.16.2.2
--- openacs-4/www/site-master.tcl	26 Apr 2004 14:23:10 -0000	1.16.2.1
+++ openacs-4/www/site-master.tcl	23 Jun 2004 18:37:50 -0000	1.16.2.2
@@ -92,9 +92,12 @@
 }
 
 # Curriculum bar
-set curriculum_bar_p [util_memoize [list llength [site_node::get_children -all -filters { package_key "curriculum" } -node_id $subsite_node_id]]]
+if { [empty_string_p [site_node::get_package_url -package_key curriculum]] } {
+    set curriculum_bar_p 0
+} else {
+    set curriculum_bar_p 1
+}
 
-
 # Who's Online
 set num_users_online [lc_numeric [whos_online::num_users]]