diff --git a/Data/Persistent/IDynamic.hs b/Data/Persistent/IDynamic.hs
--- a/Data/Persistent/IDynamic.hs
+++ b/Data/Persistent/IDynamic.hs
@@ -36,8 +36,8 @@
 import Data.RefSerialize
 import Data.HashTable as HT
 
-import Debug.Trace
-(!>)= flip trace
+--import Debug.Trace
+--(!>)= flip trace
 
 
 data IDynamic  =  IDyn  (IORef IDynType) deriving Typeable
@@ -120,8 +120,8 @@
 serializedEqual (IDyn r) str= unsafePerformIO $ do
   t <- readIORef r
   case t of
-   DRight x -> return $ runW (showp x) == str   !> ("R "++ (show $ unpack $ runW (showp x)))
-   DLeft (str', _) -> return $ str== str'       !> ("L "++ (show $ unpack str' ))
+   DRight x -> return $ runW (showp x) == str   -- !> ("R "++ (show $ unpack $ runW (showp x)))
+   DLeft (str', _) -> return $ str== str'       -- !> ("L "++ (show $ unpack str' ))
   
 fromIDyn :: (Typeable a , Serialize a)=> IDynamic -> a
 fromIDyn x= case safeFromIDyn x of
diff --git a/Data/TCache/IndexQuery.hs b/Data/TCache/IndexQuery.hs
--- a/Data/TCache/IndexQuery.hs
+++ b/Data/TCache/IndexQuery.hs
@@ -74,13 +74,17 @@
 , FunctionalDependencies, FlexibleInstances, UndecidableInstances
 , TypeSynonymInstances, IncoherentInstances #-}
 module Data.TCache.IndexQuery(
-index
-, RelationOps((.==.),(.<.),(.<=.),(.>=.),(.>.))
+  index
+, (.==.)
+, (.<.)
+, (.<=.)
+, (.>=.)
+, (.>.)
 , indexOf
 , recordsWith
 , (.&&.)
 , (.||.)
-, Select(..))
+, select)
 where
 
 import Data.TCache
@@ -213,7 +217,7 @@
     (.<.) :: field1 -> field2 ->  STM  res
 
 -- Instance of relations betweeen fields and values
--- field .op. valued
+-- field .op. value
 instance (Queriable reg a) => RelationOps (reg -> a) a  [DBRef reg] where
     (.==.) field value= do
        (_ ,_ ,dbrefs) <- getIndex field value
@@ -221,7 +225,7 @@
 
     (.>.)  field value= retrieve field value (>)
     (.<.)  field value= retrieve field value (<)
-    (.<=.)  field value= retrieve field value (<=)
+    (.<=.) field value= retrieve field value (<=)
 
     (.>=.) field value= retrieve field value (>=)
 
diff --git a/Data/TCache/IndexText.hs b/Data/TCache/IndexText.hs
--- a/Data/TCache/IndexText.hs
+++ b/Data/TCache/IndexText.hs
@@ -54,7 +54,12 @@
 
 -}
 
-module Data.TCache.IndexText(indexText, indexList,  contains, containsElem, allElemsOf) where
+module Data.TCache.IndexText(
+  indexText
+, indexList
+, contains
+, containsElem
+, allElemsOf) where
 import Data.TCache
 import Data.TCache.IndexQuery
 import Data.TCache.Defs
diff --git a/TCache.cabal b/TCache.cabal
--- a/TCache.cabal
+++ b/TCache.cabal
@@ -1,5 +1,5 @@
 name: TCache
-version: 0.10.0.11
+version: 0.10.0.12
 cabal-version: >= 1.6
 build-type: Simple
 license: BSD3