} catch(e) {
      throw "ERROR in OUTER evalTclStatements:!"+e+"!"+this.interp.current_statement+"!";
    }
    return result;
  },

  /* ==================== call ===================================== */
  call: function(args) {

//print("CALL1");
//this.call_logs.push(args.toString());
if (this.call_debug) {
//print("IPCALL!"+args.toString()+"!");
}
//print("interp.call arg0!"+args[0]+"!length!"+args.length+"!arg1!"+args[1]+"!lv!"+this.level+"!call_lv!"+this.call_level+"!");
    this.call_level++;
//print("CALL2a!"+args[0].toString()+"!");
    if(_step && !confirm("this.call "+args)) {
      throw "user abort";
    }
//print("IPNS1!"+this.interp.current_namespace.full_name+"!");
    var my_cmd = args[0].toString();
    var func = this.interp.getCommand(my_cmd);
//print("CA!"+args[0]+"!"+func+"!");
if (this.call_debug) {
print("interp call func!"+func+"!type!"+func.type+"!name!"+func.name+"!NS!"+this.interp.command_namespace.name+"!");
}
//print("FUNC!"+(func instanceof Tcl.EnsembleCommand)+"!");
    var pushed = 0;
    if ((this.interp.current_namespace != this.interp.command_namespace) && (this.interp.command_namespace.name != "::")) {
      this.interp.pushNamespace(this.interp.command_namespace.name, this.interp.command_namespace);
      pushed = 1;
    }
//print("IPNS!"+this.interp.current_namespace.full_name+"!");
    var my_obj = new TclObject(this.interp, "", "TEXT");
    var function_args = my_obj.getString(args);
    if (!this.no_trace && (this.enterstep_traces.length > 0)) {
      for (var i = 0; i < this.enterstep_traces.length; i++) {
        var trace_obj = this.enterstep_traces[i];
	var ops = trace_obj.getOps();
	for (var j = 0; j < ops.length; j++) {
          if (ops[j] == Tcl.TRACE_OP_ENTERSTEP) {
	    var code = trace_obj.getCommand()+" {"+function_args+"} enter";
            try {
              this.no_trace = true;		    
              this.eval(code);
              this.no_trace = false;		    
            } catch(e) {
              throw "error in executing enterstep trace: "+code+"!";
            }
          }
        }
      }
    }
if (this.call_debug) {
print("CALL!"+args+"!");
}
    var r = func.call(this.interp, args);
if (this.call_debug) {
print("CALL after!"+r+"!");
}
    if (pushed) {
      this.interp.popNamespace();
    }
    if (!this.no_trace && (this.leavestep_traces.length > 0)) {
      for (var i = 0; i < this.leavestep_traces.length; i++) {
        var trace_obj = this.leavestep_traces[i];
	var ops = trace_obj.getOps();
	for (var j = 0; j < ops.length; j++) {
          if (ops[j] == Tcl.TRACE_OP_LEAVESTEP) {
	    var my_obj = new TclObject(this.interp, "", "TEXT");
	    var result = r;
	    if (result == null) {
              result = "";
	    }
	    var code = trace_obj.getCommand()+" {"+function_args+"} "+this.code+" {"+result+"} leavestep";
            try {
              this.no_trace = true;		    
              this.eval(code);
              this.no_trace = false;		    
            } catch(e) {
              throw "error in executing leavestep trace: "+code+"!";
            }
          }
        }
      }
    }
    this.call_level--;
    switch (this.code) {
    case Tcl.OK:
    case Tcl.ERROR:
    case Tcl.RETURN:
      return r;
    case Tcl.BREAK:
      if (!this.inLoop) {
        throw "Invoked break outside of a loop";
      }
      break;
    case Tcl.CONTINUE:
      if (!this.inLoop) {
        throw "Invoked continue outside of a loop";
      }
      break;
    default:
      throw "Unknown return code " + this.code;
    }

print("evalExprSubTree bottom!N!"+node.name+"!"+lv+"!");
}
      return this.interp.statement_parser.objectify(node.getNodeValue());
    }
    if (child_left != null) {
      type_left = child_left.getNodeType();
      name_left = child_left.name;
      if (type_left >= Tcl.TOKEN_MINUS) {
        left_val = this.statement_parser.tree2Expr(child_left, node, "", lv);
      } else {
         val_left = child_left.getNodeValue();
      }
    }
    if (child_right != null) {
      type_right = child_right.getNodeType();
      name_right = child_right.name;
      if (type_right >= Tcl.TOKEN_MINUS) {
        val_right = this.statement_parser.tree2Expr(child_right, node, "", lv);
      } else {
        val_right = child_right.getNodeValue();
      }
    }
if (this.eval_expr_debug) {
print("evalExprSubTree!N!"+node.name+"!L!"+name_left+"!T!"+type_left+"!V!"+val_left+"!R!"+name_right+"!T!"+type_right+"!V!"+val_right+"!"+lv+"!");