Index: openacs-4/www/site-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/site-master.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/www/site-master.tcl	23 Sep 2003 07:59:10 -0000	1.6
+++ openacs-4/www/site-master.tcl	26 Sep 2003 11:46:00 -0000	1.7
@@ -75,8 +75,4 @@
 
 # Curriculum bar
 
-if { [apm_package_installed_p curriculum] } {
-    set curriculum_bar_p 1
-} else {
-    set curriculum_bar_p 0
-}
+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