1 files changed, 4 insertions, 3 deletions

diff --git a/Presence/LockedChan.hs b/Presence/LockedChan.hs
index a562bc58..eac2b5ad 100644
--- a/Presence/LockedChan.hs
+++ b/Presence/LockedChan.hs
@@ -51,9 +51,10 @@ cloneLChan c = do
                     l2 <- newTVar True
                     return $ LockedChan l2 c2
             else return Nothing
-    return $ maybe (error "Attempt to clone unlocked channel")
-                   id
-                   mchan
+    maybe (do putStrLn "LockedChan: Attempt to clone unlocked channel"
+              error "Attempt to clone unlocked channel")
+          return
+          mchan
 
 #if MIN_VERSION_stm(2,4,0)
 #else