--- a/util/sasl_cyrus.lua	Thu May 20 10:48:44 2010 +0100
+++ b/util/sasl_cyrus.lua	Thu May 20 11:44:41 2010 +0100
@@ -45,10 +45,10 @@
 end
 
 -- create a new SASL object which can be used to authenticate clients
-function new(realm, service_name)
+function new(realm, service_name, app_name)
 	local sasl_i = {};
 
-	init(service_name);
+	init(app_name or service_name);
 
 	sasl_i.realm = realm;
 	sasl_i.service_name = service_name;