diff --git a/haskelldb.cabal b/haskelldb.cabal
--- a/haskelldb.cabal
+++ b/haskelldb.cabal
@@ -1,5 +1,5 @@
 Name: haskelldb
-Version: 2.0.1
+Version: 2.0.1.1
 Cabal-version: >= 1.6
 Build-type: Simple
 Homepage: http://trac.haskell.org/haskelldb
diff --git a/src/Database/HaskellDB/Query.hs b/src/Database/HaskellDB/Query.hs
--- a/src/Database/HaskellDB/Query.hs
+++ b/src/Database/HaskellDB/Query.hs
@@ -44,7 +44,7 @@
 	     , asc, desc, order , top
 	     , _case , _default
 	     -- * Internals
-	     , runQuery, runQueryRel
+	     , runQuery, runQueryRel, unQuery
 	     , subQuery
 	     , attribute, attributeName, tableName, baseTable, emptyTable
 	     , exprs, labels, tableRec 
@@ -763,6 +763,9 @@
 -- Query Monad
 -----------------------------------------------------------
 
+unQuery :: Query a -> a
+unQuery (Query g) = fst $ g (1, Empty)
+
 runQuery :: Query (Rel r) -> PrimQuery
 runQuery = fst . runQueryRel
 
@@ -807,7 +810,6 @@
 
 newAlias :: Query Alias
 newAlias                = Query (\(i,qt) -> (i,(i+1,qt)))
-
 
 -- fresh 0 is used in the 'Database' module
 fresh :: Alias -> Attribute -> Attribute