Fix typo in previous check-in.experimental

1 files changed, 4 insertions, 4 deletions

diff --git a/unix/tclUnixNotfy.c b/unix/tclUnixNotfy.c
index 2941331..219dd75 100644
--- a/unix/tclUnixNotfy.c
+++ b/unix/tclUnixNotfy.c
@@ -1358,8 +1358,8 @@ AtForkPrepare(void)
 static void
 AtForkParent(void)
 {
-    TclpMutexLock();
-    TclpMasterLock();
+    TclpMutexUnlock();
+    TclpMasterUnlock();
     Tcl_MutexUnlock(&notifierMutex);
 }
 
@@ -1382,8 +1382,8 @@ AtForkParent(void)
 static void
 AtForkChild(void)
 {
-    TclpMutexLock();
-    TclpMasterLock();
+    TclpMutexUnlock();
+    TclpMasterUnlock();
     Tcl_MutexUnlockAndFinalize(&notifierMutex);
     Tcl_InitNotifier();
 }