Index: openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl,v
diff -u -r1.4.2.9 -r1.4.2.10
--- openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	30 Oct 2022 12:13:52 -0000	1.4.2.9
+++ openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	31 Oct 2022 07:14:03 -0000	1.4.2.10
@@ -73,6 +73,10 @@
     dict set foundPoolsDict [lindex $line 12] 1
 }
 #
+# Remember pool settings for the number-of-lines filter
+#
+set filterQuery &[export_vars {pool:multiple}]
+#
 # Map in the found pools empty to "default"
 #
 set foundPools [lmap p [lsort [dict keys $foundPoolsDict]] {
@@ -84,6 +88,7 @@
 #
 if {$pool eq ""} {
     set pool $foundPools
+    set filterQuery ""
 }
 set inputPools $pool