Finding words that start and end with same letter

Why does this code run too slow?

SameStartEndWords[char_String] :=  Table[If[{First[Characters[WordList[][[i]]]]} == Characters[char] &&  {Last[Characters[WordList[][[i]]]]} == Characters[char], WordList[][[i]], ## &[]], {i,  Length[WordList[]]}

I am trying to create a list of words from WordList[] that start and end with a specified letter "char". How could I make this more efficent?