diff --git a/Control/Concurrent/ParallelTreeSearch.hs b/Control/Concurrent/ParallelTreeSearch.hs
--- a/Control/Concurrent/ParallelTreeSearch.hs
+++ b/Control/Concurrent/ParallelTreeSearch.hs
@@ -68,12 +68,12 @@
 -- choice.
 --
 process :: SearchEnv a -> [a] -> Queue a -> IO ([a], Queue a)
-process _   xs []                 = return (xs,[])
-process env xs (None          :q) = process env xs q
-process env xs (One x         :q) = process env (x:xs) q
-process env xs (t@(Choice _ _):q) = do incThreadCounter env
-                                       forkIO (parSearch env xs [t])
-                                       return ([],q)
+process _   xs []               = return (xs,[])
+process env xs (None       : q) = process env xs q
+process env xs (One x      : q) = process env (x:xs) q
+process env xs (Choice s t : q) = do incThreadCounter env
+                                     forkIO (parSearch env xs [s])
+                                     return ([],t:q)
 
 -- auxiliary functions
 
diff --git a/parallel-tree-search.cabal b/parallel-tree-search.cabal
--- a/parallel-tree-search.cabal
+++ b/parallel-tree-search.cabal
@@ -1,5 +1,5 @@
 Name:          parallel-tree-search
-Version:       0.1
+Version:       0.1.1
 Cabal-Version: >= 1.6
 Synopsis:      Parallel Tree Search
 Description: