X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/95ed221785f5b1203e998823455f682c1830498b..28d5d2537c0321643c3b511a2195cd491204e7f2:/libguile/posix.c

diff --git a/libguile/posix.c b/libguile/posix.c
index 3e03c86c0..0443f95ea 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1225,6 +1225,7 @@ SCM_DEFINE (scm_fork, "primitive-fork", 0, 0, 0,
 #define FUNC_NAME s_scm_fork
 {
   int pid;
+  scm_i_finalizer_pre_fork ();
   if (scm_ilength (scm_all_threads ()) != 1)
     /* Other threads may be holding on to resources that Guile needs --
        it is not safe to permit one thread to fork while others are