Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.57 -r1.57.2.1
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	26 Jun 2015 08:17:07 -0000	1.57
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	18 Aug 2015 09:56:04 -0000	1.57.2.1
@@ -980,7 +980,7 @@
         foreach file $::_xo_js_order {
           if {[string match "*;*" $file]} {
             # it is not a file, but some javascipt statements
-            append statements $file \n
+            append statements [string map {< "&lt;" > "&gt;"} $file] \n
           } else {
             template::head::add_script -src $file -type text/javascript -order [incr order]
           }