diff --git a/src/mezz/base-files.reb b/src/mezz/base-files.reb
index 2edc5ecf65..0bde2d013c 100644
--- a/src/mezz/base-files.reb
+++ b/src/mezz/base-files.reb
@@ -155,7 +155,10 @@ file-type?: func [
 	"Return the identifying word for a specific file type (or NONE)."
 	file [file! url!]
 ][
-	if file: find find system/options/file-types suffix? file word! [first file]
+	all [
+		file: find find system/options/file-types suffix? file word!
+		first file
+	]
 ]
 
 split-path: func [