That does indeed address the issue.
Thanks for that!

> On 31 Aug 2019, at 01:20, Eli Zaretskii <eliz@gnu.org> wrote:
> 
> -  (if (and (null (cdr (assoc ".." file-alist)))
> +  (if (and (consp (assoc ".." file-alist))
> +           (null (cdr (assoc ".." file-alist)))
> 	   (cdr (assoc "." file-alist)))