Fix MLS.

src/hackerbase.scm

@@ -234,7 +234,7 @@
 			 (mbase-merge-mailman mb ml))
 		       MB0
 		       mls)
-		MLS))
+		mls))
       (values #f #f)))
 (define internal-ml (if MLS (find-mailman-list MLS "internal") #f))
 (define council-ml (if MLS (find-mailman-list MLS "rada") #f))
@@ -288,7 +288,7 @@
     (list->string
      (cons
       (char-upcase (car l))
-      (cdr l)))))
+      (map char-downcase (cdr l))))))
 
 (define (check-mailing-list mls name)
   (define ml (find-mailman-list mls name))