Index: openacs-4/packages/chat/lib/current-messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/current-messages.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/lib/current-messages.tcl	19 Nov 2007 01:14:15 -0000	1.4
+++ openacs-4/packages/chat/lib/current-messages.tcl	3 Dec 2018 16:39:19 -0000	1.5
@@ -1,3 +1,8 @@
+ad_include_contract {
+    This include displays currently persisted chat room messages
+} {
+    room_id:naturalnum
+}
 
 set sql {
     select to_char(creation_date, 'DD.MM.YYYY hh24:mi:ss') as creation_date, creation_user, msg