Index: openacs-4/www/site-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/site-master.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/www/site-master.tcl	12 Oct 2003 18:13:38 -0000	1.8
+++ openacs-4/www/site-master.tcl	23 Oct 2003 15:52:58 -0000	1.9
@@ -77,5 +77,4 @@
 }
 
 # Curriculum bar
-
-set curriculum_bar_p [expr [apm_package_installed_p curriculum] && [llength [namespace eval :: info procs curriculum::get_bar]] == 1]
\ No newline at end of file
+set curriculum_bar_p [llength [site_node::get_children -all -filters { package_key "curriculum" } -node_id $subsite_node_id]]