diff --git a/RELEASE_HISTORY b/RELEASE_HISTORY
--- a/RELEASE_HISTORY
+++ b/RELEASE_HISTORY
@@ -1,6 +1,12 @@
 Release history:
 
 --------
+08072012 Version 0.3.2
+--------
+Only maximal palindromes are shown by the maximalEvenPalindromesLengthBetweenDNA
+function.
+
+--------
 03072012 Version 0.3.1
 --------
 Also showing length in DNA palindromes.
diff --git a/palindromes.cabal b/palindromes.cabal
--- a/palindromes.cabal
+++ b/palindromes.cabal
@@ -1,5 +1,5 @@
 name:                   palindromes
-version:                0.3.1
+version:                0.3.2
 synopsis:               Finding palindromes in strings
 homepage:               http://www.jeuring.net/homepage/palindromes/index.html
 description:
diff --git a/src/Data/Algorithms/Palindromes/Options.hs b/src/Data/Algorithms/Palindromes/Options.hs
--- a/src/Data/Algorithms/Palindromes/Options.hs
+++ b/src/Data/Algorithms/Palindromes/Options.hs
@@ -258,6 +258,6 @@
 headerHelpMessage = 
      "*********************\n"
   ++ "* Palindrome Finder *\n"
-  ++ "* version 0.3.1     *\n"
+  ++ "* version 0.3.2     *\n"
   ++ "*********************\n"
   ++ "Usage:"
diff --git a/src/Data/Algorithms/Palindromes/PalindromesDNA.hs b/src/Data/Algorithms/Palindromes/PalindromesDNA.hs
--- a/src/Data/Algorithms/Palindromes/PalindromesDNA.hs
+++ b/src/Data/Algorithms/Palindromes/PalindromesDNA.hs
@@ -71,8 +71,8 @@
 maximalEvenPalindromesLengthBetweenDNA          :: Int -> Int -> B.ByteString -> String
 maximalEvenPalindromesLengthBetweenDNA m n input  = 
     intercalate "\n" 
-  $ map (showPalindromeDNA input . \(pl,pc) -> (min pl n,pc)) 
-  $ filter (\(pl,_) -> m <= pl)
+  $ map (showPalindromeDNA input) 
+  $ filter (\(pl,_) -> m <= pl && pl <= n)
   $ zip (evenDNAPalindromesAroundCentres input) [0..]
 
 -----------------------------------------------------------------------------