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.14 -r1.15
--- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	7 Aug 2017 23:48:07 -0000	1.14
+++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	18 Sep 2018 13:35:43 -0000	1.15
@@ -22,20 +22,20 @@
     }
 
   Chat instproc render {} {
-    my orderby time
+    :orderby time
     set result ""
-    foreach child [my children] {
+    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  [my user_link -user_id $user_id -color $color]
+      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'>[my encode $msg]</span>
+	  <span class='message'>[:encode $msg]</span>
         </p>\n"
     }
     return $result