diff --git a/brmsaptool.scm b/brmsaptool.scm
index 48086e0..7b199a8 100644
--- a/brmsaptool.scm
+++ b/brmsaptool.scm
@@ -462,8 +462,8 @@
   (find-member-by-key mdb 'id id))
 
 ;; Gets member record by member name (from file/symlink)
-(define (find-member-by-fname mdb fname)
-  (find-member-by-key mdb 'name fname))
+(define (find-member-by-name mdb name)
+  (find-member-by-key mdb 'name name))
 
 ;; Gets member record by member nick in member file the key 'nick
 (define (find-member-by-nick mdb nick)
@@ -472,14 +472,17 @@
    (lambda (mr)
      (equal? (dict-ref (dict-ref mr 'info) 'nick) nick))))
 
+;; Returns the list of all members ids
 (define (list-members-ids mdb)
-  #f)
+  (map (lambda (mr) (dict-ref mr 'id)) mdb))
 
-(define (list-members-fnames mdb)
-  #f)
+;; Returns the list of all file names in members database
+(define (list-members-names mdb)
+  (map (lambda (mr) (dict-ref mr 'name)) mdb))
 
+;; Returns the list of all members nicks
 (define (list-members-nicks mdb)
-  #f)
+  (map (lambda (mr) (dict-ref (dict-ref mr 'info) 'nick)) mdb))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Run everything
@@ -500,12 +503,5 @@
 (display "Loading members ")
 (define MDB (load-members))
 (print " ok.")
+(print "Members in database: " (length MDB))
 (newline)
-
-; (print mdb)
-
-; (print (load-member-file "trimen"))
-
-(print (find-member-by-id MDB 2803))
-(print (find-member-by-fname MDB "joe"))
-(print (find-member-by-nick MDB "joe"))