Index: perl/modules/jabber.pl
===================================================================
--- perl/modules/jabber.pl (revision 7cdf756ca67dbcf29abc6a767985f62a637c2e7f)
+++ perl/modules/jabber.pl (revision c25a20fcbef752a45d4e0f8a19d35b2fda93190f)
@@ -1383,5 +1383,5 @@
             return $j->GetJID('full');
         } elsif($j->GetJID('base') eq baseJID($to)) {
-            return $j->GetJID('full');
+            return $jid->GetJID('full');
         }
     }