Index: openacs-4/packages/acs-developer-support/lib/toolbar.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/toolbar.adp,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-developer-support/lib/toolbar.adp	6 Mar 2005 18:50:34 -0000	1.15
+++ openacs-4/packages/acs-developer-support/lib/toolbar.adp	6 Oct 2006 13:37:07 -0000	1.16
@@ -35,7 +35,12 @@
           <span>|</span></li>
           <li><a href="/doc/" title="View system documentation">Docs</a>
           <span>|</span></li>
-          <li><a href="/api-doc/" title="View/search OpenACS Tcl API documentation">API&nbsp;doc</a></li>
+          <li><a href="/api-doc/" title="View/search OpenACS Tcl API documentation">API&nbsp;doc</a>
+          <if @rm_url@ ne ""><span>|</span></li>
+	  <li><a href="@rm_url@" title="View requests in the request monitor">Requests</a></li>
+	  </if><else>
+           </li>
+          </else>
         </ul>
       </td>
 
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.7 -r1.8
--- openacs-4/packages/acs-developer-support/lib/toolbar.tcl	4 Feb 2005 15:26:11 -0000	1.7
+++ openacs-4/packages/acs-developer-support/lib/toolbar.tcl	6 Oct 2006 13:37:07 -0000	1.8
@@ -73,3 +73,9 @@
     }
 }
 
+set rm_package_id [apm_package_id_from_key xotcl-request-monitor]
+if {$rm_package_id > 0} {
+    set rm_url [apm_package_url_from_id $rm_package_id]
+} else {
+    set rm_url ""
+}