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 -r1.2 -r1.3
--- openacs-4/packages/acs-developer-support/www/shell.tcl	8 Nov 2003 12:11:47 -0000	1.2
+++ openacs-4/packages/acs-developer-support/www/shell.tcl	11 Dec 2003 21:39:51 -0000	1.3
@@ -12,14 +12,15 @@
 set context $page_title
 
 if { ![acs_user::site_wide_admin_p] } {
-  ad_script_abort
+    ad_return_warning "Error" "Sorry, only site-wide admins may use this."
+    ad_script_abort
 }
 
 set result ""
 
 ad_form -name shell -form {
     {
-      script:text(textarea)
+      script:text(textarea),nospell
       {label {Input tcl_script}}
       {html {cols 80 rows 10}}
     }