Index: openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl,v
diff -u -N -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	30 Jun 2004 18:05:39 -0000	1.6.2.1
+++ openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	7 Jul 2004 00:33:10 -0000	1.6.2.2
@@ -111,7 +111,12 @@
     foreach { attribute value } [lindex $search_result 0] {
         if { [string equal $attribute $element] } {
             # Values are always wrapped in an additional list
-            return [lindex $value 0]
+	    # not for dn (roc)
+            if [string equal $element "dn"] {
+		return $value
+	    } else {
+		return [lindex $value 0]
+	    }
         }
     }