--- parser3/src/classes/file.C	2002/01/25 12:09:03	1.69
+++ parser3/src/classes/file.C	2002/02/08 07:27:40	1.71
@@ -1,10 +1,10 @@
 /** @file
 	Parser: @b file parser class.
 
-	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
+	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexander Petrosyan <paf@design.ru> (http://paf.design.ru)
 
-	$Id: file.C,v 1.69 2002/01/25 12:09:03 paf Exp $
+	$Id: file.C,v 1.71 2002/02/08 07:27:40 paf Exp $
 */
 
 #include "pa_config_includes.h"
@@ -388,7 +388,7 @@ static void _lock(Request& r, const Stri
 	Value& body_code=params->as_junction(1, "body must be code");
 
 	Lock_execute_body_info info={&r, &body_code};
-	file_action_under_lock(file_spec, "lock", lock_execute_body, &info);
+	file_write_action_under_lock(file_spec, "lock", lock_execute_body, &info);
 }
 
 // constructor