--- parser3/src/classes/file.C	2001/04/27 16:48:19	1.31.2.2
+++ parser3/src/classes/file.C	2001/04/28 08:43:47	1.32
@@ -5,7 +5,7 @@
 
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: file.C,v 1.31.2.2 2001/04/27 16:48:19 paf Exp $
+	$Id: file.C,v 1.32 2001/04/28 08:43:47 paf Exp $
 */
 
 #include "classes.h"
@@ -22,6 +22,10 @@
 // class
 
 class MFile : public Methoded {
+public: // VStateless_class
+	
+	Value *create_new_value(Pool& pool) { return new(pool) VFile(pool); }
+
 public:
 	MFile(Pool& pool);
 	bool used_directly() { return true; }
@@ -247,8 +251,8 @@ static void _cgi(Request& r, const Strin
 
 // constructor
 
-MFile::MFile(Pool& pool) : Methoded(pool) {
-	set_name(NEW String(pool, FILE_CLASS_NAME));
+MFile::MFile(Pool& apool) : Methoded(apool) {
+	set_name(*NEW String(pool(), FILE_CLASS_NAME));
 
 
 	// ^save[file-name]
@@ -281,5 +285,5 @@ Methoded *file_class;
 // creator
 
 Methoded *MFile_create(Pool& pool) {
-	return new(pool) MFile(pool);
+	return file_class=new(pool) MFile(pool);
 }