diff --git a/libtag/taglib.rkt b/libtag/taglib.rkt
index 7d1e8ff..2cf3fa9 100644
--- a/libtag/taglib.rkt
+++ b/libtag/taglib.rkt
@@ -67,7 +67,9 @@
           (disc-number -1)
           (picture #f))
       (let ((tag-file (taglib_file_new file)))
-        (set! valid? (taglib_file_is_valid tag-file))
+        (if (eq? tag-file #f)
+            (set! valid? #f)
+            (set! valid? (taglib_file_is_valid tag-file)))
         (when valid?
           (let ((tag (taglib_file_tag tag-file))
                 (ap (taglib_file_audioproperties tag-file))