--- a/shelldap	Mon Feb 21 17:08:59 2011 -0800
+++ b/shelldap	Tue Mar 22 13:12:49 2011 +0100
@@ -1065,7 +1065,7 @@
 	# perhaps there is a better way to do this...?
 	#
 	my ( $uniqkey, $uniqval ) = ( $1, $2 )
-	  if $d_dn =~ /^([\.\w]+)(?:\s+)?=(?:\s+)?([\.\-\s\w]+),?/;
+	  if $d_dn =~ /^([\.\w\-]+)(?:\s+)?=(?:\s+)?([\.\-\s\w]+),?/;
 	unless ( $uniqkey && $uniqval ) {
 		print "Unable to parse unique values from rdn.\n";
 		return;