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.8.5 -r1.4.8.6
--- openacs-4/packages/chat/lib/current-messages.tcl	17 Mar 2020 14:06:38 -0000	1.4.8.5
+++ openacs-4/packages/chat/lib/current-messages.tcl	15 Jul 2022 13:35:12 -0000	1.4.8.6
@@ -1,7 +1,7 @@
 ad_include_contract {
     This include displays currently persisted chat room messages
 } {
-    room_id:naturalnum
+    room_id:object_type(chat_room)
 }
 
 set r [::xo::db::Class get_instance_from_db -id $room_id]