Index: openacs-4/packages/acs-developer-support/www/shell.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/shell.tcl,v
diff -u -N -r1.6 -r1.6.10.1
--- openacs-4/packages/acs-developer-support/www/shell.tcl	11 Oct 2006 16:24:11 -0000	1.6
+++ openacs-4/packages/acs-developer-support/www/shell.tcl	30 Sep 2013 11:09:27 -0000	1.6.10.1
@@ -25,7 +25,7 @@
         {html {cols 80 rows 10}}
     }
 } -on_submit {
-    if { ![string equal POST [ns_conn method]] } {
+    if { "POST" ne [ns_conn method] } {
         set out "You cannot use GET to invoke a script on this page.\nClick OK to resubmit the form as a POST."
     } else {
         if {[catch {set out [uplevel 1 [string map {"\\\r\n" " "} $script]]}]} {