     (while cur-files
       (setq cur-file (car cur-files))
 
+      ;(message cur-file)
+
       (when (not (string-match ".*_comment.txt$" cur-file))
 	;; read the comment from the corresponding file
 	(setq comment-file-name (concat (file-name-as-directory cur-dirname) cur-file "_comment.txt"))

	; append the current file to the file table
	; line-number, full path to file, contents of comments file
	(setq file-table (cons `(,(line-number-at-pos) ,(concat (file-name-as-directory cur-dirname) cur-file) ,comment) file-table))
	(if (> (length cur-files) 1)
	    (insert "\n")))
	(beginning-of-line) ; looks nicer)
      (setq cur-files (cdr cur-files)))

    (erase-buffer))
  (remove-overlays)

  ;; show some information
  (message "[Enter] - select / q - quit")

  ;; write the names of all directories and files into the buffer
  (while files-and-dirs
    (setq cur-entry (car files-and-dirs))
;    (message (cdr (assoc 'dir cur-entry)))
    (setq cur-dirname (cdr (assoc 'dir cur-entry)))
    (setq cur-files (cdr (assoc 'file cur-entry)))
    
