anchor.diff:              Tables = proplists:get_value(<<"tables">>, List),
               treehugger:log(Logger, debug, "Tables in schema: ~p", [Tables]),
               {ok, Tables};
  -        {error, notfound} ->
  +        {error, notfound} = E->
               treehugger:log(Logger, error,
                              "No schema data is set up at bucket_type ~p.",
                              [?BUCKET_TYPE]),
  -            throw(no_tables);
  +            E;
   
           Error ->
               treehugger:log(Logger, error, "~p:~p ~p", [?FILE, ?LINE, Error]),
  -            throw(Error)
  +            Error
       end.
   
   update_root_schema(C, Logger, _TableName = Bucket) ->
  
positive.code:         case get_tables(C, Logger, ?BUCKET_TYPE) of
              {ok, Tables} ->
  
                  io:format("Updating schema for static ssmix records ..."),
                  BucketName0 = ?SSMIX_PATIENTS_BUCKET,
                  case lists:member(BucketName0, Tables) of
                      true -> ok;
                      false -> update_root_schema(C, Logger, BucketName0)
                  end,
                  io:format("done: ~p~n",
                            [update_table_schema(C, Logger, BucketName0,
                                                 static_tabledef())]),
  
                  io:format("Checking schema for normal ssmix records..."),
                  BucketName1 = ?SSMIX_BUCKET,
                  case lists:member(BucketName1, Tables) of
                      true -> ok;
                      false -> update_root_schema(C, Logger, BucketName1)
                  end,
                  io:format("done: ~p~n",
                            [update_table_schema(C, Logger, BucketName1,
                                                 normal_tabledef())]),
  
                  io:format("Checking schema for rezept..."),
                  BucketName2 = ?RECEPT_BUCKET,
                  case lists:member(BucketName2, Tables) of
                      true -> ok;
                      false -> update_root_schema(C, Logger ,BucketName2)
                  end,
                  io:format("done: ~p~n",
                            [update_table_schema(C, Logger, BucketName2,
                                                 recept_tabledef())]),
                  ok;
  
              Error ->
  
negative.code:     ok = riakc_pb_socket:put(C, RiakObj),
      J = riakc_obj:get_update_value(RiakObj),
      treehugger:log(Logger, info, "new default schema updated: ~s.", [J]).
  
  
  maybe_update_schemas(C, Logger, Tables, BucketName, Tabledef, Name) ->
      io:format("Updating schema for ~s records ...", [Name]),
      case lists:member(BucketName, Tables) of
          true -> ok;
          false -> update_root_schema(C, Logger, BucketName)
      end,
      update_table_schema(C, Logger, BucketName, Tabledef).
  
  update_table_schema(C, Logger, _TableName = Bucket, TableDef) ->
      B = {?BUCKET_TYPE, ?PRESTO_SCHEMA_BUCKET},
  