anchor.diff:  	undefined ->
   	    {false, ReqData, NewCtx};
   	[_|_]=Name ->
  +	    BName = list_to_binary(Name),
   	    case Commit of 
   		none ->
   		    {false, ReqData, NewCtx};
   		_ ->
  -		    case LookupFun(Name, Commit) of
  +		    case LookupFun(BName, Commit) of
   			none ->
   			    {false, ReqData, NewCtx};
   			_ ->
  -			    {true, ReqData, NewCtx#ww_ctx{name=Name,commit=Commit}}
  +			    {true, ReqData, NewCtx#ww_ctx{name=BName,commit=Commit}}
   		    end
   	    end
       end.
  
positive.code:     case FindFunc(Name) of 
  	none ->
  	    {{halt, 404}, ReqData, Ctx};
  	Result ->
  	    DumpFunc(Result, ReqData, Ctx)
      end.
  
  
negative.code: 		{ok, _} ->
  		    from_json_helper(Data, ReqData, Ctx, NewFunc, PutKind, PathPart, ValidFunc)
  	    end;
          Name when is_binary(Name) ->
  	    NamedData = orddict:store(name, Name, Data),
  	    from_json_helper(NamedData, ReqData, Ctx, NewFunc, PutKind, PathPart, ValidFunc);
  	Name when is_list(Name) ->
  	    NamedData = orddict:store(name, list_to_binary(Name), Data),
  	    from_json_helper(NamedData, ReqData, Ctx, NewFunc, PutKind, PathPart, ValidFunc)
      end.
  
  