diff --git a/libguile/filesys.c b/libguile/filesys.c
index f18560162..d2388b12a 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -335,8 +335,8 @@ SCM_SYMBOL (scm_sym_fifo, "fifo");
 SCM_SYMBOL (scm_sym_sock, "socket");
 SCM_SYMBOL (scm_sym_unknown, "unknown");
 
-static SCM 
-scm_stat2scm (struct stat_or_stat64 *stat_temp)
+static
+SCM scm_stat2scm (struct stat_or_stat64 *stat_temp)
 {
   SCM ans = scm_c_make_vector (18, SCM_UNSPECIFIED);
   
@@ -442,6 +442,11 @@ scm_stat2scm (struct stat_or_stat64 *stat_temp)
   return ans;
 }
 
+extern SCM scm_stat2scm_ (void *stat_temp)
+{
+  return scm_stat2scm ((struct stat_or_stat64 *) stat_temp);
+}
+
 static int
 is_file_name_separator (SCM c)
 {