diff --git a/System/Path/Internal.hs b/System/Path/Internal.hs
--- a/System/Path/Internal.hs
+++ b/System/Path/Internal.hs
@@ -852,7 +852,7 @@
 
 qcFilePath :: Gen (FilePath ar)
 qcFilePath = do
-  (NonNegative numDirs) <- arbitrarySizedIntegral
+  (NonNegative numDirs) <- arbitrary
   pcs <- vectorOf numDirs qcDirComponent
   pc <- qcFileComponent
   return $ mkPathFromComponents (pcs ++ [pc])
@@ -860,7 +860,7 @@
 
 qcDirPath :: Gen (DirPath ar)
 qcDirPath = do
-  (NonNegative numDirs) <- arbitrarySizedIntegral
+  (NonNegative numDirs) <- arbitrary
   pcs <- vectorOf numDirs qcDirComponent
   pc <- qcDirComponent
   return $ mkPathFromComponents (pcs ++ [pc])
diff --git a/pathtype.cabal b/pathtype.cabal
--- a/pathtype.cabal
+++ b/pathtype.cabal
@@ -1,5 +1,5 @@
 Name:                pathtype
-Version:             0.5.3
+Version:             0.5.4
 Synopsis:            Type-safe replacement for System.FilePath etc
 Description:         This package provides type-safe access to filepath manipulations.
 		     .
@@ -86,8 +86,8 @@
 Extra-Source-Files: Test.hs, TestTemplate.hs, System/Path/Internal.hs
 
 source-repository head
-  type:     darcs
-  location: http://code.haskell.org/pathtype
+  type:     git
+  location: https://github.com/benmos/pathtype
 
 flag old-time
   description: Build with directory < 1.2 and old-time