--- parser3/src/main/compile.C	2001/03/09 08:28:34	1.22
+++ parser3/src/main/compile.C	2001/03/11 08:16:34	1.25
@@ -1,5 +1,9 @@
 /*
-  $Id: compile.C,v 1.22 2001/03/09 08:28:34 paf Exp $
+	Parser
+	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
+	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
+
+	$Id: compile.C,v 1.25 2001/03/11 08:16:34 paf Exp $
 */
 
 #include "pa_request.h"
@@ -22,11 +26,11 @@ VClass& Request::real_compile(COMPILE_PA
 	pc.pool=&pool();
 	pc.request=this;
 	VClass *vclass;
-	if(name) { // we were told the name of a class?
+	if(name) { // we were told the name of compiled class?
 		// yes. create it
 		vclass=NEW VClass(pool());
 		// defaulting base. may change with @BASE
-		vclass->set_base(root_class);
+		vclass->set_base(base_class?*base_class:root_class);
 		// append to request's classes
 		classes_array()+=vclass;
 		classes().put(*name, vclass);