Index: openacs-4/packages/acs-developer-support/lib/toolbar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/toolbar.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-developer-support/lib/toolbar.tcl	7 Jan 2004 00:22:27 -0000	1.2
+++ openacs-4/packages/acs-developer-support/lib/toolbar.tcl	8 Jan 2004 15:45:27 -0000	1.3
@@ -37,6 +37,8 @@
     set db_num_cmds [lindex $db_info 0]
     set db_num_ms [lc_numeric [lindex $db_info 1]]
 
+    set flush_url [export_vars -base "/acs-admin/cache/flush-cache" { { suffix util_memoize } { return_url [ad_return_url] } }]
+
     if { [empty_string_p $page_ms] } {
         set request_info_label "Request info"
     } else {