diff --git a/biophd.cabal b/biophd.cabal
--- a/biophd.cabal
+++ b/biophd.cabal
@@ -1,5 +1,5 @@
 Name:                biophd
-Version:             0.0.4
+Version:             0.0.5
 Synopsis:            Library for reading phd sequence files
 Description:         Library for reading phd sequence files
 Homepage:	     https://patch-tag.com/r/dfornika/biophd/home
diff --git a/src/Bio/Sequence/Phd.hs b/src/Bio/Sequence/Phd.hs
--- a/src/Bio/Sequence/Phd.hs
+++ b/src/Bio/Sequence/Phd.hs
@@ -63,9 +63,9 @@
                         , time               = com!!5
                         , traceArrayMinIndex = read (com!!6) :: Int
                         , traceArrayMaxIndex = read (com!!7) :: Int
-                        , trim               = com!!8
-                        , chem               = com!!9
-                        , dye                = com!!10 }
+                        , trim               = if (length com > 10) then Just (com!!8) else Nothing
+                        , chem               = if (length com > 10) then (com!!9) else (com!!8)
+                        , dye                = if (length com > 10) then (com!!10) else (com !!9) }
 
 mkDNABlock :: String -> String -> [Int] -> [Int] -> DNABlock
 mkDNABlock l d q t = DNABlock { label        = l
diff --git a/src/Bio/Sequence/PhdData.hs b/src/Bio/Sequence/PhdData.hs
--- a/src/Bio/Sequence/PhdData.hs
+++ b/src/Bio/Sequence/PhdData.hs
@@ -1,5 +1,6 @@
 module Bio.Sequence.PhdData where
 
+import Data.Maybe(fromJust)
 import Bio.Core.Sequence
 import qualified Bio.Sequence.PhdTag as PT
 import qualified Data.ByteString.Lazy as LB
@@ -9,7 +10,7 @@
     values, followed by one or more (optional) tag blocks. --}
 data Phd = Phd { comment  :: Comment 
                , dnaBlock :: DNABlock 
-               , phdTags    :: Maybe [PT.PhdTag] 
+               , phdTags  :: Maybe [PT.PhdTag] 
                } deriving (Show)
 
 {-- These types are subject to change if it improves functionality,
@@ -23,7 +24,7 @@
     , time               :: String
     , traceArrayMinIndex :: Int
     , traceArrayMaxIndex :: Int
-    , trim               :: String
+    , trim               :: Maybe String
     , chem               :: String
     , dye                :: String
     } deriving (Eq)
@@ -39,7 +40,7 @@
                     , "TIME: "           ++ show ti
                     , "TRACE_ARRAY_MIN_INDEX: " ++ show mintai
                     , "TRACE_ARRAY_MAX_INDEX: " ++ show maxtai
-                    , "TRIM: "           ++ tr
+                    , "TRIM: "           ++ if (tr == Nothing) then "" else fromJust tr
                     , "CHEM: "           ++ ch
                     , "DYE: "            ++ dy
                     ]
@@ -72,7 +73,7 @@
                          , time               = "" 
                          , traceArrayMinIndex = 0
                          , traceArrayMaxIndex = 1
-                         , trim               = ""
+                         , trim               = Nothing
                          , chem               = "unknown"
                          , dye                = "unknown" }