diff --git a/seqloc.cabal b/seqloc.cabal
--- a/seqloc.cabal
+++ b/seqloc.cabal
@@ -1,5 +1,5 @@
 Name:                seqloc
-Version:             0.3
+Version:             0.3.1
 Cabal-Version:       >= 1.2
 Synopsis:            Handle sequence locations for bioinformatics
 Description:         Handle sequence locations for bioinformatics
diff --git a/src/Bio/SeqLoc/OnSeq.hs b/src/Bio/SeqLoc/OnSeq.hs
--- a/src/Bio/SeqLoc/OnSeq.hs
+++ b/src/Bio/SeqLoc/OnSeq.hs
@@ -8,7 +8,7 @@
 -}
 
 module Bio.SeqLoc.OnSeq ( 
-  SeqLabel(..), unSeqLabel
+  SeqLabel(..), toSeqLabel, unSeqLabel
   
   , OnSeq(..)
   
@@ -41,6 +41,9 @@
 import qualified Bio.SeqLoc.SpliceLocation as SpLoc
 import Bio.SeqLoc.Strand
 
+toSeqLabel :: BS.ByteString -> SeqLabel
+toSeqLabel = SeqLabel . LBS.fromChunks . (: [])
+
 unSeqLabel :: SeqLabel -> BS.ByteString
 unSeqLabel = BS.concat . LBS.toChunks . unSL
 
@@ -54,7 +57,7 @@
 
 instance LocRepr s => LocRepr (OnSeq s) where
   repr (OnSeq name obj) = BS.concat [ unSeqLabel name, at, repr obj ]
-  unrepr = OnSeq <$> (SeqLabel . LBS.fromChunks . (: []) <$> ZP.takeWhile (/= c2w '@')) <* ZP.string at <*> unrepr
+  unrepr = OnSeq <$> (toSeqLabel <$> ZP.takeWhile (/= c2w '@')) <* ZP.string at <*> unrepr
 
 type SeqOffset = OnSeq Pos.Offset