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 -r1.16 -r1.17
--- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	18 Sep 2018 14:42:10 -0000	1.16
+++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	18 Sep 2018 14:46:56 -0000	1.17
@@ -21,25 +21,25 @@
 	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>\n"
+    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
     }
-    return $result
-  }
 
     Chat proc login {-chat_id -package_id} {
         auth::require_login