Index: openacs-4/packages/acs-admin/www/apm/parameter-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-edit-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/apm/parameter-edit-2.tcl	17 Sep 2003 18:35:47 -0000	1.4
+++ openacs-4/packages/acs-admin/www/apm/parameter-edit-2.tcl	10 Jan 2007 21:21:59 -0000	1.5
@@ -17,7 +17,7 @@
     {max_n_values:integer 1}
 } -validate {
     datatype_type_ck {
-	if {$datatype != "number" && $datatype != "string"} {
+	if {$datatype ne "number" && $datatype ne "string"} {
 	    ad_complain
 	}
     }
@@ -41,7 +41,7 @@
 # LARS hack
 set sections [lindex [lindex [apm_parameter_section_slider $package_key] 0] 3]
 foreach section $sections {
-    if { [string equal $section_name [lindex $section 1]] } {
+    if {$section_name eq [lindex $section 1]} {
         set section_name [lindex $section 0]
         break
     }