diff --git a/src/include/ccustio.c b/src/include/ccustio.c
index b74730145..3aa1a68f9 100755
--- a/src/include/ccustio.c
+++ b/src/include/ccustio.c
@@ -102,7 +102,10 @@ int seeklk(S, pos, lm, LockMode, rec)
   { 
     if (_lseek(S->F, LOCK_OFF + rec, SEEK_SET) == -1L)
       if ((S->IOR = CIOResult()) != NoErr) return(-1);
-    
+		
+		if (lm == LK_UNLCK)
+			_locking(S->F, LK_NBLCK, 1L);
+
 		if (lm == LK_UNLCK)
 			_locking(S->F, LK_NBLCK, 1L);
 		if (_locking(S->F, lm, 1L) == -1)
diff --git a/src/include/cfiles.c b/src/include/cfiles.c
index 92a01840c..4a7427228 100755
--- a/src/include/cfiles.c
+++ b/src/include/cfiles.c
@@ -226,7 +226,7 @@ void CPutFile(logicname,filed,dirflg)
   int                     dirflg; /* flag per file comuni */
 
 {
-	CWrite(&fdir[dirflg], (RecType)filed, (long)logicname, NoLock /* non viene mai bloccato UnLock*/);
+	CWrite(&fdir[dirflg], (RecType)filed, (long)logicname, UnLock);
 }
 
 /*