--- parser3/src/main/execute.C	2001/03/08 10:13:26	1.67
+++ parser3/src/main/execute.C	2001/03/08 12:19:21	1.69
@@ -1,5 +1,5 @@
 /*
-  $Id: execute.C,v 1.67 2001/03/08 10:13:26 paf Exp $
+  $Id: execute.C,v 1.69 2001/03/08 12:19:21 paf Exp $
 */
 
 #include "pa_array.h" 
@@ -293,7 +293,12 @@ void Request::execute(const Array& ops)
 					VAliased *aliased=self->get_aliased();
 					// substitute class alias to the class they are called AS
 					Temp_alias temp_alias(*aliased, *frame->junction.vclass);
-					execute(frame->junction.method->code);
+
+					Method& method=*frame->junction.method;
+					if(method.native_code) // native code?
+						(*method.native_code)(*this); // execute it
+					else // parser code
+						execute(*method.parser_code); // execute it
 				}
 				Value *value=wcontext->result();