Index: openacs-4/packages/chat-portlet/www/chat-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-portlet/www/chat-portlet.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/chat-portlet/www/chat-portlet.tcl	9 Nov 2008 23:29:23 -0000	1.6
+++ openacs-4/packages/chat-portlet/www/chat-portlet.tcl	29 Sep 2013 13:55:54 -0000	1.7
@@ -36,8 +36,8 @@
 
 set user_id [ad_conn user_id]
 set community_id [dotlrn_community::get_community_id]
-set room_create_p [ad_permission_p $user_id chat_room_create]
-set default_mode [ad_parameter DefaultClient chat "ajax"]
+set room_create_p [permission::permission_p -object_id $user_id -privilege chat_room_create]
+set default_mode [parameter::get -parameter DefaultClient -default "ajax"]
 set num_rooms 0
 
 if { $community_id eq 0 } {