diff --git a/NEWS b/NEWS
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,8 @@
+Darcs 2.8.2, 3 September 2012
+
+ * Added PrimV1Job type to API to support darcsden
+
+
 Darcs 2.8.1, 14 May 2012
 
  * Bumped mtl dependency
diff --git a/darcs.cabal b/darcs.cabal
--- a/darcs.cabal
+++ b/darcs.cabal
@@ -1,5 +1,5 @@
 Name:           darcs
-version:        2.8.1
+version:        2.8.2
 License:        GPL
 License-file:   COPYING
 Author:         David Roundy <droundy@darcs.net>, <darcs-devel@darcs.net>
diff --git a/release/distributed-context b/release/distributed-context
--- a/release/distributed-context
+++ b/release/distributed-context
@@ -1,1 +1,1 @@
-Just "\nContext:\n\n[TAG 2.8.1\nGanesh Sittampalam <ganesh@earth.li>**20120514063340\n Ignore-this: fbc024be64f47a743c1336c374f9bb14\n] \n"
+Just "\nContext:\n\n[TAG 2.8.2\nGanesh Sittampalam <ganesh@earth.li>**20120903201442\n Ignore-this: 603c2b42c63331aaa13e02c2ea75fdfc\n] \n"
diff --git a/src/Darcs/Repository/Internal.hs b/src/Darcs/Repository/Internal.hs
--- a/src/Darcs/Repository/Internal.hs
+++ b/src/Darcs/Repository/Internal.hs
@@ -700,6 +700,8 @@
                => Repository p C(r u r) -> IO a)
     | V1Job (forall C(r u) . Repository (Patch Prim) C(r u r) -> IO a)
     | V2Job (forall C(r u) . Repository (RealPatch Prim) C(r u r) -> IO a)
+    | PrimV1Job (forall p C(r u) . (RepoPatch p, ApplyState p ~ Tree, PrimOf p ~ Prim)
+               => Repository p C(r u r) -> IO a)
 
 onRepoJob :: RepoJob a
           -> (forall p C(r u) . RepoPatch p => (Repository p C(r u r) -> IO a) -> (Repository p C(r u r) -> IO a))
@@ -708,6 +710,7 @@
 -- onRepoJob (TreeJob job) f = TreeJob (f job)
 onRepoJob (V1Job job) f = V1Job (f job)
 onRepoJob (V2Job job) f = V2Job (f job)
+onRepoJob (PrimV1Job job) f = PrimV1Job (f job)
 
 withRepository :: [DarcsFlag] -> RepoJob a -> IO a
 withRepository opts1 = withRepositoryDirectory opts1 "."
@@ -722,6 +725,7 @@
                    RepoJob job -> job therepo
                    -- TreeJob job -> job therepo
                    V2Job job -> job therepo
+                   PrimV1Job job -> job therepo
                    V1Job _ -> fail "This repository contains darcs v1 patches, but the command requires darcs v2 patches."
          else do debugMessage $ "Identified darcs-1 repo: " ++ dir
                  let therepo = Repo dir opts rf (DarcsRepository t c) :: Repository (Patch Prim) C(r u r)
@@ -729,6 +733,7 @@
                    RepoJob job -> job therepo
                    -- TreeJob job -> job therepo
                    V1Job job -> job therepo
+                   PrimV1Job job -> job therepo
                    V2Job _ -> fail "This repository contains darcs v2 patches, but the command requires darcs v1 patches."
 
 withRepoLock :: [DarcsFlag] -> RepoJob a -> IO a
diff --git a/tests/bin/hspwd.hi b/tests/bin/hspwd.hi
Binary files a/tests/bin/hspwd.hi and b/tests/bin/hspwd.hi differ
diff --git a/tests/bin/trackdown-bisect-helper.hi b/tests/bin/trackdown-bisect-helper.hi
Binary files a/tests/bin/trackdown-bisect-helper.hi and b/tests/bin/trackdown-bisect-helper.hi differ