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.46 -r1.47
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	8 Jun 2010 12:09:15 -0000	1.46
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	25 Jun 2010 13:35:13 -0000	1.47
@@ -948,14 +948,18 @@
       append result "<link type='text/css' rel='stylesheet' href='$file' media='all' >\n"
     }
     if {[info exists ::_xo_js_order]} {
+      set statements ""
       foreach file $::_xo_js_order  {
         if {[string match "*;*" $file]} {
           # it is not a file, but some javascipt statements
-          append result "<script type='text/javascript' >" $file "</script>\n"
+          append statements $file \n
         } else {
           append result "<script src='$file' type='text/javascript'></script>\n"
         }
       }
+      if {$statements ne ""} {
+	append result \n "<script type='text/javascript' >$statements</script>\n"
+      }
     }
     return $result
   }