diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for essence-of-live-coding
 
+## 0.2.3
+
+* Added printTimeC debugging utility
+
 ## 0.2.2
 
 * Added feedback migration
diff --git a/essence-of-live-coding.cabal b/essence-of-live-coding.cabal
--- a/essence-of-live-coding.cabal
+++ b/essence-of-live-coding.cabal
@@ -1,5 +1,5 @@
 name:                essence-of-live-coding
-version:             0.2.2
+version:             0.2.3
 synopsis: General purpose live coding framework
 description:
   essence-of-live-coding is a general purpose and type safe live coding framework.
@@ -30,7 +30,7 @@
 source-repository this
   type:     git
   location: git@github.com:turion/essence-of-live-coding.git
-  tag:      v0.2.2
+  tag:      v0.2.3
 
 
 library
@@ -84,6 +84,7 @@
     , syb >= 0.7
     , vector-sized >= 1.2
     , foreign-store >= 0.2
+    , time >= 1.9
   hs-source-dirs:      src
   default-language:    Haskell2010
   default-extensions: StrictData
diff --git a/src/LiveCoding/Cell/Util.hs b/src/LiveCoding/Cell/Util.hs
--- a/src/LiveCoding/Cell/Util.hs
+++ b/src/LiveCoding/Cell/Util.hs
@@ -4,8 +4,12 @@
 
 -- base
 import Control.Arrow
+import Control.Monad.IO.Class
 import Data.Data (Data)
 
+-- time
+import Data.Time.Clock
+
 -- essence-of-live-coding
 import LiveCoding.Cell
 import LiveCoding.Cell.Feedback
@@ -26,3 +30,13 @@
 foldC step cellState = Cell { .. }
   where
     cellStep b a = let b' = step a b in return (b, b')
+
+-- * Debugging utilities
+
+-- | Print the current UTC time, prepended with the first 8 characters of the given message.
+printTime :: MonadIO m => String -> m ()
+printTime msg = liftIO $ putStrLn =<< ((take 8 msg) ++) . show <$> getCurrentTime
+
+-- | Like 'printTime', but as a cell.
+printTimeC :: MonadIO m => String -> Cell m () ()
+printTimeC msg = constM $ printTime msg