diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs
index e5c1d720..b223e105 100644
--- a/hbs2-peer/app/PeerMain.hs
+++ b/hbs2-peer/app/PeerMain.hs
@@ -571,10 +571,10 @@ runPeer :: forall e s . ( e ~ L4Proto
                         , HasStorage (PeerM e IO)
                         )=> PeerOpts -> IO ()
 
-runPeer opts = U.handle (\e -> myException e
-                        >> performGC
-                        >> respawn opts
-                        ) $ runResourceT do
+runPeer opts = Exception.handle (\e -> myException e
+                                  >> performGC
+                                  >> respawn opts
+                                ) $ runResourceT do
 
   myself <- liftIO myThreadId