diff --git a/orgmode.cabal b/orgmode.cabal
--- a/orgmode.cabal
+++ b/orgmode.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                orgmode
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            Org Mode library for haskell
 description:         A library to read and write emacs org-mode documents.
 license:             BSD3
@@ -15,16 +15,18 @@
 -- extra-source-files:  
 cabal-version:       >=1.10
 
+source-repository head
+  type:     git
+  location: https://github.com/lally/orgmode
+
 flag network-uri
    description: Get Network.URI from the network-uri package
    default: True
 
 library
   exposed-modules:     Data.OrgMode, Data.OrgMode.Text, Data.OrgMode.Doc, Data.OrgMode.OrgDocView
-  -- other-modules:       
-  -- other-extensions:    
-  build-depends:       base >=4.7 && <4.8, parsec, text, regex-posix, containers, HStringTemplate >= 0.7.3,
-                       syb
+  build-depends:       base >= 4.7 && < 4.9, parsec, text, regex-posix,
+                       containers, HStringTemplate >= 0.7.3, syb
   hs-source-dirs:      src
   default-language:    Haskell2010
 
@@ -32,8 +34,8 @@
    type:              exitcode-stdio-1.0
   hs-source-dirs:    tests, src
   main-is:           MainTestSuite.hs
-  build-depends:       base >=4.7 && <4.8, parsec, text, regex-posix, containers, HStringTemplate >= 0.7.3,
-                       syb, QuickCheck, hspec >= 1.3, random
+  build-depends:       base >= 4.7 && < 4.9, parsec, text, regex-posix, containers,
+                       HStringTemplate >= 0.7.3, syb, QuickCheck, hspec >= 1.3, random
   if flag(network-uri)
      build-depends: network-uri >= 2.6, network >= 2.6
   else
diff --git a/src/Data/OrgMode.hs b/src/Data/OrgMode.hs
--- a/src/Data/OrgMode.hs
+++ b/src/Data/OrgMode.hs
@@ -277,7 +277,7 @@
 
 orgProperty :: Parsec String st OrgFileElement
 orgProperty = do string "#+"
-                 name <- many1 letter
+                 name <- many1 (letter <|> char '_')
                  char ':'
                  many space
                  value <- manyTill anyChar (try newline)
diff --git a/src/Data/OrgMode/Text.hs b/src/Data/OrgMode/Text.hs
--- a/src/Data/OrgMode/Text.hs
+++ b/src/Data/OrgMode/Text.hs
@@ -1,8 +1,9 @@
 {-# LANGUAGE BangPatterns, GADTs, DeriveDataTypeable, StandaloneDeriving #-}
 
 module Data.OrgMode.Text (
-  LineNumber(..), toNumber, TextLine(..), isNumber, TextLineSource(..), normalizeInputText, lineAdd,
-  linesStartingFrom, hasNumber, makeDrawerLines, wrapLine, prefixLine, tlPrint, tlFormat, wrapStringVarLines
+  LineNumber(..), toNumber, TextLine(..), isNumber, TextLineSource(..),
+  normalizeInputText, lineAdd, linesStartingFrom, hasNumber, makeDrawerLines,
+  wrapLine, prefixLine, tlPrint, tlFormat, wrapStringVarLines
   ) where
 
 import Data.List (intercalate)