diff --git a/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs b/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs
index 6541ab8a..14c207d6 100644
--- a/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs
+++ b/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs
@@ -195,11 +195,6 @@ runDump pks = do
     let sout = getStdout p
     client <- newMessagingPipe (sout,ssin) -- ,sout)
 
-    -- forever do
-    --   liftIO $ LBS.hPutStr ssin "\x10 AAAAAAAAAAAAAAAAAAAAAAA\r\n"
-    --   hFlush ssin
-    --   pause @'Seconds 1
-
     void $ ContT $ withAsync $ runMessagingPipe client
 
     caller <- makeServiceCaller @BrowserPluginAPI @PIPE (localPeer client)