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.6 -r1.7
--- openacs-4/packages/chat/www/room-exit.tcl	17 Jun 2016 17:27:51 -0000	1.6
+++ openacs-4/packages/chat/www/room-exit.tcl	20 Jun 2016 08:37:04 -0000	1.7
@@ -6,7 +6,7 @@
     @creation-date November 25, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
 }
 
 set user_id [ad_conn user_id]