---
+++ contrib/sb-posix/posix-tests.lisp
@@ -536,7 +536,7 @@
   nil)
 
 (deftest readdir.1
-  (let ((dir (sb-posix:opendir "/")))
+  (let ((dir (sb-posix:opendir "/")) (sb-alien::*default-c-string-external-format* :utf-8))
     (unwind-protect
        (block dir-loop
          (loop for dirent = (sb-posix:readdir dir)