return interp.OK;
  });

  /* ==================== command uplevel ===================================== */
  interp.registerCommand("::uplevel", function (interp, args) {
    if (args.length >= 2) {
      var retcode;
      var saved_callframe;
      var target_callframe;
      var saved_call_frame;
      var target_call_frame;
      var obj_ptr;
      var str;
      var argc = args.length;
      var i = 1;

      /* Save the old callframe pointer */
      saved_callframe = interp.frame_ptr;
      /* Save the old call_frame pointer */
      saved_call_frame = interp.frame_ptr;
      /* Lookup the target frame pointer */
      str = args[1].getString();
      if ((str.charAt(0) >= '0' && str.charAt(0) <= '9') || strcharAt(0) == '#') {
        target_callframe = interp.getCallFrameByLevel(args[i]);
        target_call_frame = interp.getCallFrameByLevel(args[i]);
        argc--;
	i++;
      } else {
        target_callframe = interp.getCallFrameByLevel(null);
        target_call_frame = interp.getCallFrameByLevel(null);
      }
      if (target_callframe == null) {
      if (target_call_frame == null) {
        return interp.ERROR;
      }
      if (argc < 2) {
        i--;
        interp.wrongNumArgs(1, args, "?level? command ?arg ...?");
        return interp.ERROR;
      }
      /* Eval the code in the target callframe. */
      interp.frame_ptr = target_callframe;
      /* Eval the code in the target call_frame. */
      interp.frame_ptr = target_call_frame;
      if (argc == 2) {
        retcode = interp.eval_statement.evalObj(args[i]);
      } else {
        obj_ptr = interp.default_obj.concatObj(argc - 1, args.slice(i));
        obj_ptr.incrRefCount();
        retcode = interp.eval_statement.evalObj(obj_ptr);
        obj_ptr.decrRefCount();
      }
      interp.frame_ptr = saved_callframe;
      interp.frame_ptr = saved_call_frame;
      return retcode;
    } else {
      interp.wrongNumArgs(1, args, "?level? command ?arg ...?");
      return interp.ERROR;
    }
  });