 
       ; append the current file to the file table
       ;(message (line-number-at-pos))
-      (setq file-table (cons `(,(line-number-at-pos) ,(concat cur-dirname cur-file)) file-table))
+      (setq file-table (cons `(,(line-number-at-pos) ,(concat (file-name-as-directory cur-dirname) cur-file)) file-table))
 ;      (message file-table)
 ;      (print-elements-of-list file-table) ;
 

  (dolist (cur-file cur-files)
  (if (nth 1 cur-file) (add-to-list 'new-directories (nth 0 cur-file))))

  (if (not new-directories)
      (message "no directories found.")
    (progn
      (while new-directories
      (setq new-files-and-dirs (find-files-and-directories (concat dirname (car new-directories))))

  (dolist (cur-file cur-files)
    (if (not (nth 1 cur-file)) (add-to-list 'new-files (nth 0 cur-file))))

;  (dolist (new-file new-files)
;    (message (concat "path: " dirname ", file:" new-file)))
    (add-to-list 'all-files-and-dirs `((dir . ,dirname) (file . ,new-files)))

  all-files-and-dirs))

;(setq dir-project-root (find-next-settings-file))
;(setq dir-inbox (concat dir-project-root "inbox/"))
;(setq dirs-and-files (find-files-and-directories dir-inbox))


(defun create-file-selection-form (files-and-dirs)
