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.30 -r1.31
--- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	6 Dec 2018 16:51:14 -0000	1.30
+++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	6 Dec 2018 19:05:22 -0000	1.31
@@ -21,25 +21,31 @@
 
   chat_room instproc render {} {
       :get_parameters
-      return [::chat::Chat login \
+      set html [subst {
+        <div id='xowiki-chat-includelet'>
+            [::chat::Chat login \
                   -chat_id $chat_id \
                   -mode    $mode \
                   -path    $path]
+        </div>
+      }]
   }
 
 }
 
 namespace eval ::chat {
     ::xo::ChatClass Chat -superclass ::xowiki::Chat
 
-    Chat proc login {-chat_id {-package_id ""} {-mode ""} {-path ""} {-skin ""}} {
+    Chat proc login {-chat_id {-package_id ""} {-mode ""} {-path ""}} {
         if {![chat_room_exists_p $chat_id]} {
             return [_ chat.Room_not_found]
         } else {
             chat_room_get -room_id $chat_id -array c
+            set package_id $c(context_id)
+            set chat_skin [parameter::get -package_id $package_id -parameter ChatSkin]
             next -chat_id $chat_id \
-                -skin $skin \
-                -package_id $c(context_id) \
+                -skin $chat_skin \
+                -package_id $package_id \
                 -mode $mode \
                 -path $path \
                 -logout_messages_p $c(logout_messages_p) \