--- parser3/src/classes/string.C	2001/10/12 12:48:22	1.81
+++ parser3/src/classes/string.C	2001/10/17 15:44:47	1.83
@@ -4,7 +4,7 @@
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: string.C,v 1.81 2001/10/12 12:48:22 parser Exp $
+	$Id: string.C,v 1.83 2001/10/17 15:44:47 parser Exp $
 */
 
 #include "classes.h"
@@ -129,10 +129,12 @@ static void _right(Request& r, const Str
 static void _mid(Request& r, const String&, MethodParams *params) {
 	Pool& pool=r.pool();
 
+	const String& string=*static_cast<VString *>(r.self)->get_string();
+
 	size_t p=(size_t)params->as_int(0, "p must be int", r);
-	size_t n=(size_t)params->as_int(1, "n must be int", r);
+	size_t n=params->size()>1?
+		(size_t)params->as_int(1, "n must be int", r):string.size();
 	
-	const String& string=*static_cast<VString *>(r.self)->get_string();
 	r.write_assign_lang(*new(pool) VString(string.mid(p, p+n)));
 }
 
@@ -478,7 +480,7 @@ MString::MString(Pool& apool) : Methoded
 	// ^string.right(n)
 	add_native_method("right", Method::CT_DYNAMIC, _right, 1, 1);
 	// ^string.mid(p;n)
-	add_native_method("mid", Method::CT_DYNAMIC, _mid, 2, 2);
+	add_native_method("mid", Method::CT_DYNAMIC, _mid, 1, 2);
 
 	// ^string.pos[substr]
 	add_native_method("pos", Method::CT_DYNAMIC, _pos, 1, 1);