Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -N -r1.77 -r1.78
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 May 2018 12:33:05 -0000	1.77
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 May 2018 12:48:54 -0000	1.78
@@ -522,13 +522,12 @@
     Get the value of the ScreenName parameter. Checked to ensure that it only returns none, solicit, or require.
 } {
     set value [parameter::get -parameter ScreenName -package_id [ad_acs_kernel_id] -default "solicit"]
-    if { [lsearch { none solicit require } $value] == -1 } {
+    if { $value ni {"none" "solicit" "require"} } {
         ns_log Error "acs-kernel.ScreenName parameter invalid. Set to '$value', should be one of none, solicit, or require."
         return "solicit"
     } else {
         return $value
     }
-
 }
 
 ad_proc -public party::update {