diff --git a/RELEASE_HISTORY b/RELEASE_HISTORY
--- a/RELEASE_HISTORY
+++ b/RELEASE_HISTORY
@@ -1,6 +1,11 @@
 Release history:
 
 --------
+03072012 Version 0.3.1
+--------
+Also showing length in DNA palindromes.
+
+--------
 01072012 Version 0.3
 --------
 Uses Data.Bytestring instead of String
diff --git a/palindromes.cabal b/palindromes.cabal
--- a/palindromes.cabal
+++ b/palindromes.cabal
@@ -1,5 +1,5 @@
 name:                   palindromes
-version:                0.3
+version:                0.3.1
 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,5 +258,6 @@
 headerHelpMessage = 
      "*********************\n"
   ++ "* Palindrome Finder *\n"
+  ++ "* version 0.3.1     *\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
@@ -282,7 +282,7 @@
 showPalindromeDNA :: B.ByteString -> (Int,Int) -> String
 showPalindromeDNA input (len,pos) = 
   let startpos = pos - len `div` 2
-  in show startpos ++ " to " ++ show (startpos+len) ++ "\t" ++ show (B.take len $ B.drop startpos input)
+  in (show startpos ++) . (" to " ++) . (show (startpos+len) ++) . ("\t" ++) . (show (B.take len $ B.drop startpos input) ++) . ("\t" ++) $ show len
 
 isDNASymbol    :: Word8 -> Bool
 isDNASymbol w  =  w2c w `elem` "ACTGactg"