diff --git a/htools/Ganeti/Query/Server.hs b/htools/Ganeti/Query/Server.hs
index 1d2f8e6a8b9e8ec987369f1d2979c7877dbe2cb8..ab9a43c920a1750f19befe9b7068a7e168d276f7 100644
--- a/htools/Ganeti/Query/Server.hs
+++ b/htools/Ganeti/Query/Server.hs
@@ -39,7 +39,6 @@ import Data.Maybe
 import qualified Network.Socket as S
 import qualified Text.JSON as J
 import Text.JSON (showJSON, JSValue(..))
-import Text.JSON.Pretty (pp_value)
 import System.Info (arch)
 
 import qualified Ganeti.Constants as C
@@ -179,7 +178,8 @@ handleClientMsg client creader args = do
         logWarning $ "Failed to execute request: " ++ show err
         return (False, showJSON err)
       Ok result -> do
-        logDebug $ "Result " ++ show (pp_value result)
+        -- only log the first 2,000 chars of the result
+        logDebug $ "Result (truncated): " ++ take 2000 (J.encode result)
         return (True, result)
   sendMsg client $ buildResponse status rval
   return True