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.13 -r1.13.2.1
--- openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	13 Jan 2005 13:54:41 -0000	1.13
+++ openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	6 Jul 2006 11:22:50 -0000	1.13.2.1
@@ -56,6 +56,10 @@
             lappend cmd $elem
         }
         set context_bar [eval $cmd]
+        # this is rather a hack, but just needed for streaming output
+        # a more general solution can be provided at some later time...
+        regsub "#acs-kernel.Main_Site#" $context_bar \
+	    [_ acs-kernel.Main_Site] context_bar
     }
     set header [ad_header $title ""]
     append body "$header\n"