--- parser3/src/classes/classes.C	2003/02/14 17:28:18	1.18.2.3
+++ parser3/src/classes/classes.C	2003/02/17 09:56:14	1.18.2.4
@@ -5,7 +5,7 @@
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
-static const char* IDENT_CLASSES_C="$Date: 2003/02/14 17:28:18 $";
+static const char* IDENT_CLASSES_C="$Date: 2003/02/17 09:56:14 $";
 
 #include "classes.h"
 #include "pa_request.h"
@@ -13,8 +13,13 @@ static const char* IDENT_CLASSES_C="$Dat
 // Methoded
 
 void Methoded::register_directly_used(Request& r) {
-	if(used_directly())
+	if(used_directly()) {
 		r.classes().put(name(), MethodedPtr(this));
+
+		// prevent system classes from modification [calling add_method]
+		// ^process[$string:CLASS]{@method} prohibited from now on...
+		this->lock();
+	}
 }
 
 // Methoded_array