diff --git a/Data/TCache.hs b/Data/TCache.hs
--- a/Data/TCache.hs
+++ b/Data/TCache.hs
@@ -811,8 +811,10 @@
       -> IO ThreadId           -- ^ Identifier of the thread created
 clearSyncCacheProc  time check sizeObjects= forkIO  clear
  where
- clear =handle ( \ (e :: SomeException)-> hPutStr stderr (show e) >> clear ) $ do
-    	clearSyncCache   check sizeObjects   --`debug` "CLEAR"
+ clear = do
+     threadDelay $ time * 1000000
+     handle ( \ (e :: SomeException)-> hPutStr stderr (show e) >> clear ) $ do
+    	clearSyncCache   check sizeObjects                                        -- !>  "CLEAR"
     	clear
 
 criticalSection mv f= bracket
diff --git a/Data/TCache/IndexText.hs b/Data/TCache/IndexText.hs
--- a/Data/TCache/IndexText.hs
+++ b/Data/TCache/IndexText.hs
@@ -200,6 +200,7 @@
             let wordsr = catMaybes $ map (\n -> M.lookup n mmapIntString) $ catMaybes mns
             return $ map getDBRef wordsr
 
+-- | return all the values of a given field (if it has been indexed with 'index')
 allElemsOf :: (IResource a, Typeable a, Typeable b) => (a -> b) -> STM [T.Text]
 allElemsOf  sel  = do
     let [t1, t2]=  typeRepArgs $! typeOf sel
diff --git a/Data/TCache/Memoization.hs b/Data/TCache/Memoization.hs
--- a/Data/TCache/Memoization.hs
+++ b/Data/TCache/Memoization.hs
@@ -49,13 +49,16 @@
   execute:: m a -> a
 
 instance Executable IO where
-  execute= unsafePerformIO
+  execute m = unsafePerformIO $ f1 m ""
+   where
+   f1 m x= m
 
 instance Executable Identity where
   execute (Identity x)= x
 
 instance MonadIO Identity where
   liftIO f=  Identity $!  unsafePerformIO $! f
+
 
 cachedKeyPrefix = "cached"
 
diff --git a/TCache.cabal b/TCache.cabal
--- a/TCache.cabal
+++ b/TCache.cabal
@@ -1,5 +1,5 @@
 name: TCache
-version: 0.10.0.8
+version: 0.10.0.9
 cabal-version: >= 1.6
 build-type: Simple
 license: BSD3
@@ -18,8 +18,12 @@
              0.10.0.8 subversion add cachedByKeySTM
              .
              See "Data.TCache" for details
+             .
+             In this release:
+             .
+             fixed an error in clearSyncChacheProc and SynWrite Asyncronous that checked the cache continuously
 
-             This release fixes some bugs in the module IndexText
+
 
 
 category: Data, Database