diff --git a/src/Vervis/Ssh.hs b/src/Vervis/Ssh.hs
index 24d56b7..10b8e06 100644
--- a/src/Vervis/Ssh.hs
+++ b/src/Vervis/Ssh.hs
@@ -100,7 +100,7 @@ authorize (PublicKey name key) = do
 
 handle :: Bool -> ChannelRequest -> Channel ()
 handle wantReply request = do
-    liftIO $ print request
+    $logDebugS src $ pack $ show request
     chanFail wantReply "I don't execute any commands yet, come back later"
 
 ready :: LogFunc -> IO ()