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 -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	3 Jul 2003 23:02:36 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	28 Aug 2003 09:41:43 -0000	1.6
@@ -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
@@ -21,7 +21,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.
   } {