Finding Palindromes in a Dictionary

Mathematica 5.1 comes with a 90,000-word English dictionary.  This loads the dictionary and related functions.

Needs["Miscellaneous`Dictionary`"]

This finds all palindromic words in the dictionary.

FindWords[x__ /; x == StringReverse[x]]