RailsOnLisp/rol-assets

diff --git a/find.lisp b/find.lisp
index 5f11456..68873dd 100644
--- a/find.lisp
+++ b/find.lisp
@@ -47,7 +47,8 @@
   (let ((absolute-dir (truename dir))
         (assets assets))
     (dolist (path (reverse (directory (str dir name (string-downcase ext)))))
-      (unless (char= #\. (char (pathname-name path) 0))
+      (unless (or (null (pathname-name path))
+                  (char= #\. (char (pathname-name path) 0)))
         (let* ((name.ext (enough-namestring (truename path) absolute-dir))
                (name (if ext
                          (subseq name.ext 0 (- (length name.ext)