Index: openacs.org-dev/packages/acs-admin/tcl/apm-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-admin/tcl/apm-admin-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-admin/tcl/apm-admin-procs.tcl	9 Jul 2002 17:34:56 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-admin/tcl/apm-admin-procs.tcl	8 Oct 2002 15:46:40 -0000	1.1.1.2
@@ -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 ""]