--- parser3/src/main/execute.C	2001/02/25 08:12:22	1.38
+++ parser3/src/main/execute.C	2001/02/25 09:42:04	1.40
@@ -1,5 +1,5 @@
 /*
-  $Id: execute.C,v 1.38 2001/02/25 08:12:22 paf Exp $
+  $Id: execute.C,v 1.40 2001/02/25 09:42:04 paf Exp $
 */
 
 #include "pa_array.h" 
@@ -108,6 +108,7 @@ void Request::execute(const Array& ops)
 		case OP_CLASS:
 			{
 				VClass *vclass=static_cast<VClass *>(ops.quick_get(++i));
+				printf(" \"%s\"", vclass->name()->cstr());
 		        PUSH(vclass);
 				break;
 			}
@@ -209,7 +210,7 @@ void Request::execute(const Array& ops)
 				if(!junction)
 					THROW(0,0,
 						value->name(),
-						"is not a method or a junction (it is '%s'), can not call it",
+						"type is '%s', can not call it (must be method or junction)",
 							value->type()); 
 				//unless(method) method=operators.get_method[...;code/native_code](name)
 				VMethodFrame *frame=NEW VMethodFrame(pool(), *junction);
@@ -231,12 +232,12 @@ void Request::execute(const Array& ops)
 				frame->fill_unspecified_params();
 				PUSH(self);  PUSH(root);  PUSH(rcontext);  PUSH(wcontext); 
 
-				VClass *context_class=wcontext->get_class();
 				VClass *called_class=frame->junction.self.get_class();
-				// context is some class? [variable already constructed?]
-				if(context_class) { // yes
+				// variable already constructed?
+				if(wcontext->get_class()) { // yes
+					VClass *read_class=rcontext->get_class();
 					// is it me or one of my parents? 
-					if(context_class->is_or_derived_from(*called_class)) // yes
+					if(read_class->is_or_derived_from(*called_class)) // yes
 						self=&frame->junction.self; // dynamic call
 					else // no
 						self=called_class; // static call