diff --git a/dist/setup-compile-r7rs.exe b/dist/setup-compile-r7rs.exe
index f3a5a0b..6569aa4 100755
Binary files a/dist/setup-compile-r7rs.exe and b/dist/setup-compile-r7rs.exe differ
diff --git a/libs/util.sld b/libs/util.sld
index f868c27..432522a 100644
--- a/libs/util.sld
+++ b/libs/util.sld
@@ -3,7 +3,7 @@
   (import (scheme base)
           (scheme file)
           (scheme process-context)
-          (retropikzel pffi))
+          (foreign c))
   (export string-replace
           string-ends-with?
           string-starts-with?
diff --git a/snow/srfi/srfi-170.scm b/snow/srfi/srfi-170.scm
index 14aad3d..403dbab 100644
--- a/snow/srfi/srfi-170.scm
+++ b/snow/srfi/srfi-170.scm
@@ -4,7 +4,8 @@
   (import (scheme base)
           (scheme write)
           (scheme file)
-          (retropikzel r7rs-pffi))
+          (foreign c)
+          (scheme process-context))
   (export ;posix-error?
           ;posix-error-name
           ;posix-error-message
@@ -35,7 +36,7 @@
           file-info:atime
           file-info:mtime
           file-info:ctime
-          file-info-directory?
+          ;file-info-directory?
           ;file-info-fifo?
           ;file-info-symlink?
           ;file-info-regular?
@@ -47,7 +48,7 @@
           ;open-directory
           ;read-directory
           ;close-directory
-          ;real-path
+          real-path
           ;file-space
           ;temp-file-prefix
           ;create-temp-file
@@ -82,4 +83,4 @@
           ;delete-environment-variable!
           ;terminal?
           )
-    (include "170.scm"))
+  (include "170.scm"))