anchor.diff:  -spec retrieve_people_by_tag(atom()) -> list(person()) | list().
   retrieve_people_by_tag(Tag) ->
       F = fun() ->
  -            case mnesia:read({volmgr_people_tags, Tag}) of
  -                [] -> {error, notfound};
  -                VolmgrPeopleTagsRecords ->
  -                    Reader = fun R([], Acc) ->
  -                                 Acc;
  -                             R([#volmgr_people_tags{volmgr_people_id=Id}|T], Acc) ->
  -                                 case mnesia:read({volmgr_people, Id}) of
  -                                     [#volmgr_people{id=Id, active=A, first=F, last=L, phone=P, email=E, notes=N}] ->
  -                                         Person = #person{id=Id, active=A, first=F, last=L, phone=P, email=E, notes=N},
  -                                         R(T, [Person|Acc]);
  -                                     [] ->
  -                                         R(T, Acc)
  -                                 end
  -                             end,
  -                    Reader(VolmgrPeopleTagsRecords, [])
  -            end
  +            Q = qlc:q([make_person(VP) || VPT <- mnesia:table(volmgr_people_tags),
  +                                          VP <- mnesia:table(volmgr_people),
  +                                          VPT#volmgr_people_tags.volmgr_tags_id =:= Tag,
  +                                          VPT#volmgr_people_tags.volmgr_people_id =:= VP#volmgr_people.id]),
  +            qlc:e(Q)
           end,
       mnesia:activity(transaction, F).
  +
  +-spec make_person(#volmgr_people{}) -> #person{}.
  +make_person(#volmgr_people{id=Id, active=A, first=F, last=L, phone=P, email=E, notes=N})->
  +    #person{id=Id, active=A, first=F, last=L, phone=P, email=E, notes=N}.
   
   -spec create_tag(Tag :: atom()) -> ok | {error, any()} | no_return().
   create_tag(Tag) ->
  
positive.code:          ensure_tags/1
          ]).
  
  -include("volunteer_mgr.hrl").
  
  -record(volmgr_people,
  
negative.code: retrieve_person(Id) ->
      F = fun() ->
              case mnesia:read({volmgr_people, Id}) of
                  [VP=#volmgr_people{}] -> make_person(VP);
                  [] -> {error, notfound}
              end
          end,
      mnesia:activity(transaction, F).
  
  -spec retrieve_people() -> list(person()) | list().
  retrieve_people() ->
      I = fun(VP=#volmgr_people{}, Acc)->
  	        [make_person(VP)|Acc]
  	    end,
  	F = fun() ->
  	        mnesia:foldl(I, [], volmgr_people)
  