Index: openacs-4/packages/chat/tcl/chat-ajax-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-ajax-procs.tcl,v
diff -u -N -r1.18 -r1.19
--- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	19 Sep 2018 13:22:20 -0000	1.18
+++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	20 Sep 2018 13:28:30 -0000	1.19
@@ -21,26 +21,6 @@
         next
     }
 
-    Chat instproc render {} {
-        :orderby time
-        set result ""
-        foreach child [:children] {
-            set msg       [$child msg]
-            set user_id   [$child user_id]
-            set color     [$child color]
-            set timelong  [clock format [$child time]]
-            set timeshort [clock format [$child time] -format {[%H:%M:%S]}]
-            set userlink  [:user_link -user_id $user_id -color $color]
-            append result "
-               <p class='line'>
-                 <span class='timestamp'>$timeshort</span>
-                 <span class='user'>$userlink:</span>
-                 <span class='message'>[:encode $msg]</span>
-               </p>"
-        }
-        return $result
-    }
-
     Chat proc login {-chat_id -package_id} {
         auth::require_login
         if {![info exists package_id]} {
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
   }