0106b4
diff -up expect5.45.4/exp_log.c.orig expect5.45.4/exp_log.c
0106b4
--- expect5.45.4/exp_log.c.orig	2018-02-02 20:15:52.000000000 +0100
0106b4
+++ expect5.45.4/exp_log.c	2018-06-27 10:46:53.065655463 +0200
0106b4
@@ -499,7 +499,7 @@ expLogChannelOpen(interp,filename,append
0106b4
 	Tcl_DStringAppend(&tsdPtr->logFilename,filename,-1);
0106b4
     }
0106b4
 
0106b4
-    tsdPtr->logChannel = Tcl_OpenFileChannel(interp,newfilename,mode,0777);
0106b4
+    tsdPtr->logChannel = Tcl_OpenFileChannel(interp,newfilename,mode,0666);
0106b4
     if (!tsdPtr->logChannel) {
0106b4
 	Tcl_DStringFree(&tsdPtr->logFilename);
0106b4
 	return TCL_ERROR;