diff --git a/basis/io/directories/unix/unix.factor b/basis/io/directories/unix/unix.factor
index b8b781ec12..a107a46275 100644
--- a/basis/io/directories/unix/unix.factor
+++ b/basis/io/directories/unix/unix.factor
@@ -57,7 +57,7 @@ M: unix find-next-file ( DIR* -- byte-array )
 
 M: unix >directory-entry ( byte-array -- directory-entry )
     {
-        [ dirent-d_name utf8 alien>string ]
+        [ dirent-d_name underlying>> utf8 alien>string ]
         [ dirent-d_type dirent-type>file-type ]
     } cleave directory-entry boa ;