Index: openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	20 Sep 2002 21:46:34 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	7 Jun 2003 01:47:32 -0000	1.3.2.1
@@ -4,7 +4,7 @@
 
     @creation-date 30 May 2000
     @author Jon Salz [jsalz@arsdigita.com]
-    @cvs-id $Id$
+    @cvs-id request-processor-init.tcl,v 1.3 2002/09/20 21:46:34 jeffd Exp
 }
 
 # These procedures are dynamically defined at startup to alleviate
@@ -32,7 +32,7 @@
     return [ad_acs_admin_id_mem]
 "
 
-if [ad_parameter -package_id [ad_acs_kernel_id] PerformanceModeP request-processor 0] {
+if { [ad_parameter -package_id [ad_acs_kernel_id] PerformanceModeP request-processor 0] } {
   ad_proc -private rp_performance_mode {} {
     Returns 1 if the request processor is in performance mode, 0 otherwise.
   } {