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.23 -r1.24
--- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	24 Oct 2018 11:05:08 -0000	1.23
+++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	19 Nov 2018 14:32:29 -0000	1.24
@@ -7,11 +7,36 @@
     @cvs-id $Id$
 }
 
+namespace eval ::xowiki::includelet {
+
+  ::xowiki::IncludeletClass create chat_room \
+      -superclass ::xowiki::Includelet \
+      -parameter {
+        {parameter_declaration {
+          {-chat_id}
+          {-mode:optional ""}
+          {-path:optional ""}
+        }}
+      }
+
+  chat_room instproc render {} {
+      :get_parameters
+      template::head::add_css -href /chat/resources/chat.css
+      return [::chat::Chat login \
+                  -chat_id $chat_id \
+                  -mode    $mode \
+                  -path    $path]
+  }
+
+}
+
 namespace eval ::chat {
     ::xo::ChatClass Chat -superclass ::xowiki::Chat
 
     Chat proc login {-chat_id {-package_id ""} {-mode ""} {-path ""}} {
-        if {$package_id eq "" && [chat_room_exists_p $chat_id]} {
+        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)
         }