Index: openacs-4/packages/chat/www/room-exit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-exit.tcl,v
diff -u -N -r1.10 -r1.10.2.1
--- openacs-4/packages/chat/www/room-exit.tcl	1 Oct 2018 12:17:00 -0000	1.10
+++ openacs-4/packages/chat/www/room-exit.tcl	15 Jul 2022 13:35:12 -0000	1.10.2.1
@@ -6,7 +6,7 @@
     @creation-date November 25, 2000
     @cvs-id $Id$
 } {
-    room_id:naturalnum,notnull
+    room_id:object_type(chat_room)
 }
 
 set user_id [ad_conn user_id]