Index: representable-functors-3.2.0.2/src/Control/Comonad/Representable/Store.hs
===================================================================
--- representable-functors-3.2.0.2.orig/src/Control/Comonad/Representable/Store.hs	2013-10-13 11:01:56.000000000 -0400
+++ representable-functors-3.2.0.2/src/Control/Comonad/Representable/Store.hs	2013-11-30 13:00:55.910979199 -0500
@@ -109,7 +109,7 @@
   lower (StoreT w s) = fmap (`index` s) w
 
 instance ComonadHoist (StoreT g) where
-  cohoist (StoreT w s) = StoreT (Identity (extract w)) s
+  cohoist l (StoreT w s) = StoreT (l w) s
 
 instance (ComonadTraced m w, Representable g) => ComonadTraced m (StoreT g w) where
   trace m = trace m . lower
