/* Concatenate every token in an unique
     * object. */
    obj_ptr = stmt.interp.string_obj_type.newStringObjNoAlloc(null, 0);

    if (word_tokens == 4 && token[idx + 0].token == stmt.TOKEN_ESC && token[idx + 1].token == stmt.TOKEN_ESC
        && token[idx + 2].token == stmt.TOKEN_VAR) {
      /* May be able to do fast interpolated object -> dictSubst */
      obj_ptr.obj_type = obj_ptr.interpolatedObjType;
      obj_ptr.twoPtrValue.ptr1(token);
      obj_ptr.twoPtrValue.ptr2(stmt.intv[idx + 2]);
      stmt.intv[idx + 2].incrRefCount();
    }

    obj_ptr.bytes = "";

    var sargv = null;
    var line_no = 0;

    stmt.interp.error_flag = 0;

    /* If the object is of type "list", with no string rep we can call
     * a specialized version of evalObj() */
    if (script_obj_ptr.isListObject(script_obj_ptr) && script_obj_ptr.bytes == null) {
        return stmt.evalObjList(script_obj_ptr, stmt.interp.empty_obj, 1);
    }

    script_obj_ptr.incrRefCount();     /* Make sure it's shared. */
    script = script_obj_ptr.interp.script_obj_type.getScript(script_obj_ptr);

    /* Reset the interpreter result. This is useful to

        && script.script_object.tokens[1].obj_ptr.obj_type.name == "command"
        && script.script_object.tokens[1].obj_ptr.cmdValue.cmdPtr.isproc == 0
        && script.script_object.tokens[1].obj_ptr.cmdValue.cmdPtr.u.native.cmdProc == Jim_IncrCoreCommand
        && script.script_object.tokens[2].obj_ptr.obj_typ.name == "variable") {

      var obj_ptr = stmt.interp.getVariable(script.script_object.tokens[2].obj_ptr, stmt.TOKENNONE);

      if (obj_ptr && !obj_ptr.isShared(obj_ptr) && obj_ptrobj_type.name == "int") {
//            JimWideValue(obj_ptr)++;
        obj_ptr.invalidateStringRep(obj_ptr);
        script_obj_ptr.decrRefCount();
        stmt.interp.setResult(obj_ptr);
        return stmt.OK;
      }
    }

    /* Now we have to make sure the internal repr will not be

      procname = "";
    }
    if (!procname && !file_name_obj.getStringLength()) {
      /* No useful info here */
      return;
    }

    if (file_name_obj.isShared(stmt.interp.stack_trace)) {
      stmt.interp.stack_trace.decrRefCount();
      stmt.interp.stack_trace = file_name_obj.duplicateObj(stmt.interp.stack_trace);
      stmt.interp.stack_trace.incrRefCount();
    }

    /* If we have no procname but the previous element did, merge with that frame */
    if (!procname && file_name_obj.getStringLength()) {