Index: openacs-4/packages/xotcl-core/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/chat-procs.tcl,v
diff -u -N -r1.34 -r1.35
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	19 Sep 2018 17:11:49 -0000	1.34
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	20 Sep 2018 13:28:30 -0000	1.35
@@ -305,7 +305,7 @@
 
   Chat instproc render {} {
     :orderby time
-    set result "<div class='messages'>\n"
+    set result ""
     foreach child [:children] {
       set msg       [$child msg]
       set user_id   [$child user_id]
@@ -314,11 +314,14 @@
       set timeshort [clock format [$child time] -format {[%H:%M:%S]}]
       set userlink  [:user_link -user_id $user_id -color $color]
       ns_log notice "encode <$msg> using encoder [:encoder] gives <[:encode $msg]>"
-      append result "<p class='line'><span class='timestamp'>$timeshort</span> " \
-                        "<span class='user'>$userlink</span> " \
-                        "<span class='message'>[:encode $msg]</span></p>\n"
+      append result [subst {
+        <p class='line'>
+        <span class='timestamp'>$timeshort</span>
+        <span class='user'>$userlink:</span>
+        <span class='message'>[:encode $msg]</span>
+        </p>
+      }]
     }
-    append result "</div>"
     return $result
   }