Index: Login.tcl
===================================================================
--- Login.tcl	(revision 2749)
+++ Login.tcl	(working copy)
@@ -977,6 +977,7 @@
 		dict set xmppShort invalid-mechanism [mc "Protocol error during the login process."]
 		dict set xmppShort mechanism-too-weak [mc "Protocol error during the login process."]
 		dict set xmppShort not-authorized [mc "Login failed because of unknown account or wrong password."]
+		dict set xmppShort forbidden [mc "Login failed because of unknown account or wrong password."]
 		dict set xmppShort temporary-auth-failure [mc "Protocol error during the login process."]
 		
 		# Added 'bad-auth' which seems to be a ejabberd anachronism.