diff --git a/ClustalParser.cabal b/ClustalParser.cabal
--- a/ClustalParser.cabal
+++ b/ClustalParser.cabal
@@ -5,7 +5,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             1.1.3
+version:             1.1.4
 synopsis:            Libary for parsing Clustal tools output
 description:         Currently contains parsers and datatypes for: clustalw2, clustalo, mlocarna, cmalign
                      .
@@ -36,8 +36,8 @@
 
 source-repository this
   type:     git
-  location: https://github.com/eggzilla/ClustalParser/tree/1.1.3
-  tag:      1.1.3
+  location: https://github.com/eggzilla/ClustalParser/tree/1.1.4
+  tag:      1.1.4
 
 library
   -- Modules exported by the library.
diff --git a/ClustalParserTest.hs b/ClustalParserTest.hs
--- a/ClustalParserTest.hs
+++ b/ClustalParserTest.hs
@@ -2,15 +2,12 @@
     
 import System.Environment (getArgs)
 import Bio.ClustalParser
-import Data.Either.Unwrap
 
 main :: IO ()
 main = do
   args <- getArgs
   let input_file = (head args)                                     
   -- read Clustal outputfile
-  parsedinput <- readClustalAlignment input_file
-  --parsedinput <- readStructuralClustalAlignment input_file
-  --print (entrySequenceIdentifier (head (structuralAlignmentEntries(fromRight parsedinput))))
-  print (fromRight parsedinput)
+  parsedinput <- readStructuralClustalAlignment input_file
+  print parsedinput
  
diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,4 +1,6 @@
 -*-change-log-*-
+1.1.4 Florian Eggenhofer <egg@cs.uni-freiburg.de> 30. May 2016
+        * Fixed a bug in output of clustal alignments with sequence length of 60
 1.1.3 Florian Eggenhofer <florian.eggenhofer@univie.ac.at> 4. July 2015
         * Nucleotide sequences are now parsed by a unified function in line
 	with IUPAC nucleotide code
diff --git a/src/Bio/ClustalData.hs b/src/Bio/ClustalData.hs
--- a/src/Bio/ClustalData.hs
+++ b/src/Bio/ClustalData.hs
@@ -63,7 +63,8 @@
 showAlignment :: Int -> Int -> Int -> [ClustalAlignmentEntry] -> String -> String
 showAlignment totalSequenceLength longestSequenceIdLength currentWindowPosition _alignmentEntries _conservationTrack
   | totalSequenceLength == 0 = [] 
-  | currentWindowPosition <= totalSequenceLength = showAlignmentBlock longestSequenceIdLength currentWindowPosition _alignmentEntries _conservationTrack ++ (showAlignment totalSequenceLength longestSequenceIdLength (currentWindowPosition + 60) _alignmentEntries _conservationTrack)
+  | currentWindowPosition < totalSequenceLength = showAlignmentBlock longestSequenceIdLength currentWindowPosition _alignmentEntries _conservationTrack ++ (showAlignment totalSequenceLength longestSequenceIdLength (currentWindowPosition + 60) _alignmentEntries _conservationTrack)
+  | currentWindowPosition == totalSequenceLength = []                                               
   | otherwise = "" 
 
 showAlignmentBlock :: Int -> Int -> [ClustalAlignmentEntry] -> String -> String
diff --git a/src/Bio/ClustalParser.hs b/src/Bio/ClustalParser.hs
--- a/src/Bio/ClustalParser.hs
+++ b/src/Bio/ClustalParser.hs
@@ -114,8 +114,9 @@
 -- | Parse the input as ClustalAlignment datatype
 genParserClustalAlignment :: GenParser Char st ClustalAlignment
 genParserClustalAlignment = do
+  string "CLUSTAL"
   many1 (noneOf "\n")
-  many1 newline
+  many1 (try newline)
   alignmentSlices <- many1 (try genParserClustalAlignmentSlice)
   eof  
   return (mergealignmentSlices alignmentSlices)