devops: Include failed query in timeout error.

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index b8737ad7299abae627d3190915e763f051538256..f1c9670eaa5057dc5d1acf4657e982e9d0ecb566 100644 (file)
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -540,7 +540,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
   (flush-output-port i/o)
   (let ((object (read-until reply-wait i/o)))
     (if (eq? object 'timeout)
-       (error "Timeout awaiting reply."))
+       (error "Timeout awaiting reply:" query))
     object))
 
 (define (write-host-status host srcs)