anchor.diff:              {CreatePath, S2, C2} = controller_call(create_path, S1, C1),
               case CreatePath of
                   NewPath when is_binary(NewPath) ->
  -                    {BaseUri0, S3, C3} = controller_call(base_uri, S2, C2),
                       NewPath1 = case NewPath of
                                       <<$/, Path/binary>> -> Path;
                                       _ -> NewPath
                                  end,
  -                    PathCtx = cowmachine_req:set_disp_path(<<$/, NewPath1/binary>>, C3),
  -                    LocCtx = case cowmachine_req:get_resp_header(<<"location">>, PathCtx) of
  +                    PathCtx = cowmachine_req:set_disp_path(<<$/, NewPath1/binary>>, C2),
  +                    {LocS, LocCtx} = case cowmachine_req:get_resp_header(<<"location">>, PathCtx) of
                           undefined ->
  +                            {BaseUri0, S3, C3} = controller_call(base_uri, S2, PathCtx),
                               BaseUri = case BaseUri0 of
                                               undefined -> cowmachine_req:base_uri(C3);
                                               _ -> BaseUri0
  
positive.code:                         _ -> {stage1_ok, S4, C4}
                      end;
                  undefined ->
                      error_response("post_is_create w/o create_path", S2, C2);
                  _ ->
                      error_response("create_path not a string", S2, C2)
              end;
          _ ->
              {ProcessPost, S2, C2} = accept_helper(S1, C1),
              case ProcessPost of
                  true -> {stage1_ok, S2, C2};
                  {halt, Code} -> respond(Code, S2, C2);
                  Err -> error_response(Err, S2, C2)
              end
      end,
      case Stage1 of
  
negative.code:                                     $/ -> <<BaseUri/binary, NewPath1/binary>>;
                                      _ -> <<BaseUri/binary, $/, NewPath1/binary>>
                                    end,
                              {S3, cowmachine_req:set_resp_header(<<"location">>, Loc, PathCtx)};
                          _ ->
                              {S2, PathCtx}
                      end,
                      {Res, S4, C4} = accept_helper(LocS, LocCtx),
                      case Res of
                          {halt, Code} -> respond(Code, S4, C4);
                          {error, _,_} -> error_response(Res, S4, C4);
  