Index: muc.tcl
===================================================================
--- muc.tcl	(revision 1979)
+++ muc.tcl	(working copy)
@@ -538,7 +538,7 @@
 ###############################################################################
 
 proc muc::change_nick {chatid nick} {
-    global userstatus textstatus
+    global userstatus textstatus userpriority
     variable tokens
 
     set xlib [chat::get_xlib $chatid]
@@ -553,7 +553,7 @@
     debugmsg conference "CHANGE_NICK: $chatid $nick"
 
     eval [list ::xmpp::muc::setNick $tokens($chatid) $nick] \
-	 [presence_args $xlib $userstatus -status $textstatus] \
+	 [presence_args $xlib $userstatus -status $textstatus -priority $userpriority] \
 	 [list -command [namespace code [list process_change_nick $chatid]]]
 }
 
@@ -732,7 +732,7 @@
 }
 
 proc muc::join_group {xlib group nick {password ""} {retries 2}} {
-    global userstatus textstatus
+    global userstatus textstatus userpriority
     variable options
     variable timestamps
     variable muc_password
@@ -776,7 +776,7 @@
 							   $nick \
 							   $password \
 							   $retries]]] \
-	 [presence_args $xlib $userstatus -status $textstatus] \
+	 [presence_args $xlib $userstatus -status $textstatus -priority $userpriority] \
 	 $x_args
 }