Make load-members create more complex structure.

src/members-base.scm

@@ -65,7 +65,10 @@
  (define (load-members dn . opts)
    (let ((progress? (and (not (null? opts))
 			 (car opts))))
-     (with-progress%
+     (make-dict
+      `((members
+	 .
+	 ,(with-progress%
 	   progress? "members"
 	   (let* ((fss (load-members-dir dn))
 		  (tot (sub1 (length (dict-keys fss))))
@@ -84,7 +87,7 @@
 				   (lambda (acc id mr)
 				     (cons mr acc))
 				   mb1)))
-	mb))))
+	     mb)))))))
 
  ;; Gets member based by generic predicate
  (define (find-member-by-predicate mb pred)