diff --git a/src/comMisc/utList.erl b/src/comMisc/utList.erl
index 1736694..319f86f 100644
--- a/src/comMisc/utList.erl
+++ b/src/comMisc/utList.erl
@@ -150,16 +150,6 @@ confuse_list(List, Cnt, Result) ->
    {Element, NList} = extract_member(Index, List, []),
    confuse_list(NList, Cnt - 1, [Element | Result]).
 
-extract_member(1, List1, List2) ->
-   case List1 of
-      [R] ->
-         {R, List2};
-      [R | L] ->
-         {R, List2 ++ L}
-   end;
-extract_member(Nth, [R | List1], List2) ->
-   extract_member(Nth - 1, List1, [R | List2]).
-
 confuse_list1(List) ->
    TupleList = list_to_tuple(List),
    TupleSize = tuple_size(TupleList),