Index: qwiki.scm =================================================================== --- qwiki.scm (revision 22750) +++ qwiki.scm (working copy) @@ -215,7 +215,8 @@ (remaining-path path)) (and-let* (((not (null? remaining-path))) ; Return #f when no symlinks (tgt (path->source-filename - (reverse (cons (car remaining-path) consumed-path))))) + (reverse (cons (car remaining-path) consumed-path)))) + ((file-exists? tgt))) (if (symbolic-link? tgt) (append (reverse consumed-path) (string-split (read-symbolic-link tgt) "/")