Index: openacs-4/packages/chat-includelet/lib/chat-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/lib/chat-includelet.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/chat-includelet/lib/chat-includelet.tcl	9 May 2018 15:33:30 -0000	1.3
+++ openacs-4/packages/chat-includelet/lib/chat-includelet.tcl	23 Jul 2018 12:46:53 -0000	1.4
@@ -7,11 +7,11 @@
 set num_rooms 0
 
 db_multirow -extend { can_see_p } rooms rooms_list {} {
-	set can_see_p 0
-	if {($active_p eq "t" && $user_p eq "t") || ($admin_p eq "t")} {
-		set can_see_p 1
-		set num_rooms [expr $num_rooms + 1]
-	}   
+    set can_see_p 0
+    if {($active_p eq "t" && $user_p eq "t") || ($admin_p eq "t")} {
+        set can_see_p 1
+        incr num_rooms
+    }
 }
 
 ad_return_template