Index: openacs-4/packages/chat/www/room-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-edit.tcl,v
diff -u -r1.4.2.4 -r1.4.2.5
--- openacs-4/packages/chat/www/room-edit.tcl	11 May 2006 01:21:53 -0000	1.4.2.4
+++ openacs-4/packages/chat/www/room-edit.tcl	19 Jun 2006 22:50:07 -0000	1.4.2.5
@@ -63,9 +63,12 @@
         ad_return_complaint 1 "[_ chat.Create_new_room_failed]: $errmsg"
         break
     }
-    set comm_id [dotlrn_community::get_community_id] 
+    set comm_id ""
+    if {[info command dotlrn_community::get_community_id] ne ""} {
+      set comm_id [dotlrn_community::get_community_id] 
+    }
     if {$comm_id ne ""} {
-      chat_user_grant $room_id [dotlrn_community::get_community_id]
+      chat_user_grant $room_id $comm_id
     } else {
       #-2 Registered Users
       #chat_user_grant $room_id -2