--- parser3/src/classes/table.C	2001/03/19 16:06:13	1.16
+++ parser3/src/classes/table.C	2001/03/19 19:17:41	1.17
@@ -3,7 +3,7 @@
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: table.C,v 1.16 2001/03/19 16:06:13 paf Exp $
+	$Id: table.C,v 1.17 2001/03/19 19:17:41 paf Exp $
 */
 
 #include "pa_common.h"
@@ -26,13 +26,17 @@ static void set_or_load(
 	// data is last parameter
 	Value *vdata=static_cast<Value *>(params->get(params->size()-1));
 	// forcing
-	//	[this param type] 
-	//	[this param type] 
-	r.fail_if_junction_(true, *vdata, 
-		method_name, "body must not be a junction");
+	// ^load[this body type] 
+	// ^set{this body type}
+	r.fail_if_junction_(is_load, *vdata, 
+		method_name, is_load?"body must not be junction":"body must be junction");
 
 	// data or file_name
-	char *data_or_filename=vdata->as_string().cstr();
+	char *data_or_filename;
+	{
+		Temp_lang temp_lang(r, String::Untaint_lang::TABLE);
+		data_or_filename=r.process(*vdata).as_string().cstr();
+	}
 	// data
 	char *data=is_load?file_read(pool, r.absolute(data_or_filename)):data_or_filename;