Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl	12 Feb 2003 15:16:32 -0000	1.2
@@ -4,15 +4,17 @@
 # Date:        22 Apr 2000
 # Description: Provides routines used to aggregate request/response information for debugging.
 
-ad_register_filter -critical t -priority 999999 trace * /* ds_trace_filter
-ad_schedule_proc [ad_parameter -package_id [ds_instance_id] DataSweepInterval "developer-support" 900] ds_sweep_data
-nsv_array set ds_request [list]
+# Make sure we do the setup only once
+if { ![nsv_exists ds_properties enabled_p] } {
+    ad_register_filter -critical t -priority 999999 trace * /* ds_trace_filter
+    ad_schedule_proc [ad_parameter -package_id [ds_instance_id] DataSweepInterval "developer-support" 900] ds_sweep_data
+    nsv_array set ds_request [list]
 
-nsv_set ds_properties enabled_p [ad_parameter -package_id [ds_instance_id] EnabledOnStartupP acs-developer-support 0]
-nsv_set ds_properties enabled_ips *
-nsv_set ds_properties database_enabled_p [ad_parameter -package_id [ds_instance_id] \
+    nsv_set ds_properties enabled_p [ad_parameter -package_id [ds_instance_id] EnabledOnStartupP acs-developer-support 0]
+    nsv_set ds_properties enabled_ips *
+    nsv_set ds_properties database_enabled_p [ad_parameter -package_id [ds_instance_id] \
 	DatabaseEnabledP developer-support 0]
-ds_set_user_switching_enabled [ad_parameter -package_id [ds_instance_id] UserSwitchingEnabledP acs-developer-support 0]
+    ds_set_user_switching_enabled [ad_parameter -package_id [ds_instance_id] UserSwitchingEnabledP acs-developer-support 0]
+}
 
 
-