Index: openacs-4/packages/chat/lib/transcript-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/transcript-view.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/lib/transcript-view.tcl	9 Nov 2008 23:29:23 -0000	1.5
+++ openacs-4/packages/chat/lib/transcript-view.tcl	3 Dec 2018 16:53:09 -0000	1.6
@@ -1,3 +1,9 @@
+ad_include_contract {
+    This include displays currently persisted chat room messages
+} {
+    room_id:naturalnum
+    transcript_id:naturalnum
+}
 
 db_1row get_transcript {
     select pretty_name as transcript_name,
Index: openacs-4/packages/chat/www/chat-transcript.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat-transcript.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/www/chat-transcript.adp	17 Jun 2016 17:48:21 -0000	1.4
+++ openacs-4/packages/chat/www/chat-transcript.adp	3 Dec 2018 16:53:09 -0000	1.5
@@ -2,9 +2,9 @@
 <property name="context">@context;literal@</property>
 <property name="doc(title)">#chat.transcript_of_room# "@room_name;noquote@"</property>
 
-<if @transcript_id@ eq 0>
-<include src="/packages/chat/lib/current-messages" room_id=@room_id@>
+<if @transcript_id;literal@ eq 0>
+<include src="/packages/chat/lib/current-messages" room_id=@room_id;literal@>
 </if>
 <else>
-<include src="/packages/chat/lib/transcript-view" room_id=@room_id@ transcript_id=@transcript_id@ write_p=@write_p@>
+<include src="/packages/chat/lib/transcript-view" room_id=@room_id;literal@ transcript_id=@transcript_id;literal@>
 </else>