Index: openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	28 Aug 2001 23:51:53 -0000	1.3
+++ openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	16 Sep 2002 20:55:10 -0000	1.4
@@ -34,14 +34,13 @@
 }
 
 ad_proc apm_header { { -form "" } args } {
-    set context_bar_cmd ad_admin_context_bar
 
     if { [llength $args] == 0 } {
-	set context_bar [ad_context_bar "ACS Package Manager"]
+	set context_bar [ad_admin_context_bar "ACS Package Manager"]
 	set title "ACS Package Manager Administration"
     } else {
 	
-	set context_bar [eval [concat [list ad_context_bar [list "/acs-admin/apm/" "ACS Package Manager"]] $args]]
+	set context_bar [eval [concat [list ad_admin_context_bar [list "/acs-admin/apm/" "ACS Package Manager"]] $args]]
 	set title [lindex $args end]
     }
     set header [ad_header $title ""]