diff --git a/scsh/dirstuff1.c b/scsh/dirstuff1.c
index fca4767..86d0379 100644
--- a/scsh/dirstuff1.c
+++ b/scsh/dirstuff1.c
@@ -41,3 +41,7 @@ s48_value open_dir(s48_value sch_dirname)
   S48_GC_UNPROTECT ();
   return dirlist;
 }
+
+void s48_init_dirstuff (){
+  S48_EXPORT_FUNCTION(open_dir);
+}