diff --git a/src/basedir_prot.sh b/src/basedir_prot.sh
index b969380e..072922dd 100755
--- a/src/basedir_prot.sh
+++ b/src/basedir_prot.sh
@@ -37,7 +37,7 @@ if [ $# -gt 0 ]; then
 		if echo "$i" | grep -q /var/alternc/dns > /dev/null; then
 			dom="$i"
 		else
-		    initial_domain=`init_dom_letter "$i"`
+		    initial_domain=`print_domain_letter "$i"`
 		    dom="/var/alternc/dns/$initial_domain/$i"
 		fi
 		doms="$doms $dom"
@@ -62,9 +62,9 @@ do
 	fi
 	# la première lettre de l'avant-dernière partie du domaine (e.g.
 	# www.alternc.org -> a)
-	initial_domain=`init_dom_letter "$domain"`
+	initial_domain=`print_domain_letter "$domain"`
 	# la première lettre du username
-	initial_account=`echo "$account" | cut -c1`
+	initial_account=`print_user_letter "$account"`
 	path1="/var/alternc/dns/$initial_domain/$domain"
 	path2="/var/alternc/html/$initial_account/$account"
 
diff --git a/src/functions.sh b/src/functions.sh
index c68fc4e1..548667ff 100644
--- a/src/functions.sh
+++ b/src/functions.sh
@@ -339,14 +339,3 @@ add_dom_entry() {
 	cp ${override_f}.new ${override_f} && \
 	rm ${override_f}.new
 }
-
-# la première lettre de l'avant-dernière partie du domaine (e.g.
-# www.alternc.org -> a)
-#
-# argument: le domaine
-# imprime: la lettre
-init_dom_letter() {
-    echo "$1" | awk '{z=split($NF, a, ".") ; print substr(a[z-1], 1, 1)}'
-}
-
-