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.0.1
+version:             1.0.2
 synopsis:            Libary for parsing Clustal tools output
 description:         Currently contains parsers and datatypes for: clustalw2, clustalo
                      .
@@ -30,8 +30,8 @@
 
 source-repository this
   type:     git
-  location: https://github.com/eggzilla/ClustalParser/tree/1.0.1
-  tag:      1.0.1
+  location: https://github.com/eggzilla/ClustalParser/tree/1.0.2
+  tag:      1.0.2
 
 library
   -- Modules exported by the library.
diff --git a/ClustalParserTest.hs b/ClustalParserTest.hs
--- a/ClustalParserTest.hs
+++ b/ClustalParserTest.hs
@@ -8,6 +8,6 @@
   args <- getArgs
   let input_file = (head args)                                     
   -- read Clustal outputfile
-  parsedinput <- readClustalAlignment input_file
+  parsedinput <- readStructuralClustalAlignment input_file
   print parsedinput
  
diff --git a/src/Bio/ClustalParser.hs b/src/Bio/ClustalParser.hs
--- a/src/Bio/ClustalParser.hs
+++ b/src/Bio/ClustalParser.hs
@@ -231,9 +231,9 @@
 genParserStructuralClustalEntrySlice = do
   sliceIdentifier <- many1 (noneOf " ")
   many1 (char ' ')
-  sliceSequence <- many1 (oneOf "UAGCT-")
+  sliceSequence <- many1 (oneOf "NUAGCT-")
   newline
-  return $ StructuralClustalAlignmentEntrySlice sliceIdentifier sliceSequence
+  return $ StructuralClustalAlignmentEntrySlice (filter (/='\n') sliceIdentifier) sliceSequence
 
 -- exported functions