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.5 -r1.6
--- openacs-4/packages/acs-developer-support/www/shell.tcl	4 Jun 2004 08:04:51 -0000	1.5
+++ openacs-4/packages/acs-developer-support/www/shell.tcl	11 Oct 2006 16:24:11 -0000	1.6
@@ -28,7 +28,7 @@
     if { ![string equal POST [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 $script]}]} {
+        if {[catch {set out [uplevel 1 [string map {"\\\r\n" " "} $script]]}]} {
             global errorInfo
             set out "ERROR:\n$errorInfo"
         }