diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -2,6 +2,10 @@
 
 ## [Unreleased]
 
+## [0.1.3.10] - 2020-11-06
+### Fixed
+- `SOURCE` and `ORIGIN` in GB parser.
+
 ## [0.1.3.9] - 2020-10-27
 ### Fixed
 - FASTA parser can now parse empty lines with spaces. 
@@ -12,7 +16,7 @@
 
 ## [0.1.3.7] - 2020-10-14
 ### Added
-- Generic fasta parser. 
+- Generic fasta parser.
 
 ## [0.1.3.6] - 2020-07-14
 ### Added
diff --git a/cobot-io.cabal b/cobot-io.cabal
--- a/cobot-io.cabal
+++ b/cobot-io.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 2fa509bfbb994978869ae5dc69747b5693ec1c98d823c08ae3b850221ef52a80
+-- hash: 7812eda294db70053683641ccf7a28ce152e843de09376f47a6bc6d2d1a86db2
 
 name:           cobot-io
-version:        0.1.3.9
+version:        0.1.3.10
 synopsis:       Biological data file formats and IO
 description:    Please see the README on GitHub at <https://github.com/biocad/cobot-io#readme>
 category:       Bio
diff --git a/src/Bio/GB/Parser.hs b/src/Bio/GB/Parser.hs
--- a/src/Bio/GB/Parser.hs
+++ b/src/Bio/GB/Parser.hs
@@ -4,20 +4,17 @@
   ( genBankP
   ) where
 
-import           Bio.GB.Type          (Feature (..), Form (..),
-                                       GenBankSequence (..), Locus (..),
-                                       Meta (..), Reference (..), Source (..),
-                                       Version (..))
-import           Bio.Sequence         (MarkedSequence, Range, markedSequence)
-import           Control.Applicative  ((<|>))
-import           Data.Attoparsec.Text (Parser, char, decimal, digit, endOfInput,
-                                       endOfLine, letter, many', many1',
-                                       satisfy, string, takeWhile, takeWhile1)
-import           Data.Bifunctor       (bimap)
-import           Data.Char            (isAlphaNum, isSpace, isUpper)
-import           Data.Functor         (($>))
-import           Data.Text            (Text, intercalate, pack, splitOn, unpack)
-import           Prelude              hiding (takeWhile)
+import Bio.GB.Type          (Feature (..), Form (..), GenBankSequence (..), Locus (..), Meta (..),
+                             Reference (..), Source (..), Version (..))
+import Bio.Sequence         (MarkedSequence, Range, markedSequence)
+import Control.Applicative  ((<|>))
+import Data.Attoparsec.Text (Parser, char, decimal, digit, endOfInput, endOfLine, letter, many',
+                             many1', satisfy, string, takeWhile, takeWhile1)
+import Data.Bifunctor       (bimap)
+import Data.Char            (isAlphaNum, isSpace, isUpper)
+import Data.Functor         (($>))
+import Data.Text            (Text, intercalate, pack, splitOn, unpack)
+import Prelude              hiding (takeWhile)
 
 -- | Parser of .gb file.
 --
@@ -84,9 +81,9 @@
 
 sourceP :: Parser Source
 sourceP =  string "SOURCE" *> space
-        *> ((flip Source Nothing <$> emptyP) <|> (Source
+        *> (Source
        <$> someLinesP
-       <*> wrapMP organismP))
+       <*> wrapMP organismP)
   where
     organismP = string "  ORGANISM" *> space *> someLinesP