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.2.1 -r1.2.2.2
--- openacs-4/packages/acs-developer-support/www/shell.tcl	17 Nov 2003 02:21:57 -0000	1.2.2.1
+++ openacs-4/packages/acs-developer-support/www/shell.tcl	17 Nov 2003 03:01:55 -0000	1.2.2.2
@@ -12,7 +12,8 @@
 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 ""