diff --git a/library/yap2swi/yap2swi.c b/library/yap2swi/yap2swi.c
index 796982e14..f70f2ee86 100755
--- a/library/yap2swi/yap2swi.c
+++ b/library/yap2swi/yap2swi.c
@@ -2888,13 +2888,6 @@ PL_foreign_context_address(control_t ctx)
   }
 }
 
-X_API void 
-PL_cleanup_fork(void)
-{
-  Yap_CloseStreams(FALSE);
-}
-
-
 static int
 SWI_ctime(void)
 {
diff --git a/packages/PLStream/pl-file.c b/packages/PLStream/pl-file.c
index 637ee31a7..ccf36ba82 100755
--- a/packages/PLStream/pl-file.c
+++ b/packages/PLStream/pl-file.c
@@ -868,7 +868,7 @@ in use by Prolog. This can't work as   the  table is guarded by a mutex.
 Now we use the FD_CLOEXEC flag in Snew();
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
 
-void
+X_API void
 PL_cleanup_fork(void)
 { stopItimer();
 }