diff --git a/citation-resolve.cabal b/citation-resolve.cabal
--- a/citation-resolve.cabal
+++ b/citation-resolve.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                citation-resolve
-version:             0.3
+version:             0.3.0.2
 synopsis:            convert document IDs such as DOI, ISBN, arXiv ID to bibliographic reference.
 description:         
   This modules provides a way to convert document identifiers, such
diff --git a/src/Text/CSL/Input/Identifier.hs b/src/Text/CSL/Input/Identifier.hs
--- a/src/Text/CSL/Input/Identifier.hs
+++ b/src/Text/CSL/Input/Identifier.hs
@@ -11,7 +11,7 @@
 --  making the server load as little as possible.
 
 module Text.CSL.Input.Identifier
-       (resolveEither, resolve)
+       (resolveEither, resolve, withDBFile, DB(..))
        where
 
 import           Control.Monad.IO.Class
@@ -28,10 +28,10 @@
 
 
 
--- | Resolve a document url to a 'Reference'. returns an empty reference when someting fails. 
+-- | Resolve a document url to a 'Reference'. returns an empty reference when someting fails.
 --   prefix the document ID with one of "arXiv:", "doi:", "bibcode:" or "isbn:" .
--- 
 --
+--
 -- >>> do { ref <- resolveDef "arXiv:1204.4779" ; putStrLn $ title ref }
 -- Paraiso: an automated tuning framework for explicit solvers of partial differential equations
 -- >>> do { ref <- resolveDef "doi:10.1088/1749-4699/5/1/015003" ; print $ author ref }
@@ -43,12 +43,12 @@
 
 
 resolve :: (MonadIO m, MonadState DB m) => String -> m Reference
-resolve = liftM (either (const emptyReference) id) . runEitherT . resolveEither 
+resolve = liftM (either (const emptyReference) id) . runEitherT . resolveEither
 
 -- | Resolve the document id using the default database.
 
 resolveDef :: String -> IO Reference
 resolveDef url = do
-  fn <- getDataFileName "default.db"             
+  fn <- getDataFileName "default.db"
   let go = withDBFile fn $ resolve url
   State.evalStateT go def
diff --git a/src/Text/CSL/Input/Identifier/Internal.hs b/src/Text/CSL/Input/Identifier/Internal.hs
--- a/src/Text/CSL/Input/Identifier/Internal.hs
+++ b/src/Text/CSL/Input/Identifier/Internal.hs
@@ -40,7 +40,11 @@
 
 
 
--- | The data structure that carries the resolved references.
+-- | The data structure that carries the resolved references.  Since
+--   the mapping @Reference -> BibTeX@ is not the inverse of 
+--   @BibTeX -> Reference@ for the version @citeproc-hs-0.3.8@ and loses some
+--   information, we choose to store the original BibTeX string in the DB,
+--  rather  than 'Reference'.
 newtype DB = DB { unDB :: Map.Map String String}
 
 -- | The lens for accessing the map within the DB.