--- parser3/src/classes/op.C	2002/04/16 08:17:42	1.88
+++ parser3/src/classes/op.C	2002/04/17 12:20:14	1.90
@@ -4,7 +4,7 @@
 	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 
-	$Id: op.C,v 1.88 2002/04/16 08:17:42 paf Exp $
+	$Id: op.C,v 1.90 2002/04/17 12:20:14 paf Exp $
 */
 
 #include "classes.h"
@@ -92,7 +92,7 @@ static void _taint(Request& r, const Str
 	{
 		Value& vbody=params->as_no_junction(params->size()-1, "body must not be code");
 		
-		String result(r.pool());
+		String& result=*new(pool) String(pool);
 		result.append(
 			vbody.as_string(),  // process marking tainted with that lang
 			lang, true);  // force result language to specified
@@ -545,7 +545,7 @@ VHash& exception2vhash(Pool& pool, const
 		hash.put(*exception_source_part_name, new(pool) VString(source));
 #ifndef NO_STRING_ORIGIN
 		const Origin& origin=source.origin();
-		hash.put(*new(pool) String(pool, "file"), 				
+		hash.put(*new(pool) String(pool, "file", 0, true),
 			new(pool) VString(*new(pool) String(pool, origin.file)));
 		hash.put(*new(pool) String(pool, "lineno"),
 			new(pool) VInt(pool, 1+origin.line));