build/dbus-service: Fix possible syntax error in 'with-retries'.

When the body was not a single expression, quote would throw a syntax error.

* gnu/build/dbus-service.scm (with-retries): Ensure the body is a single
expression when quoted for the error message.

Change-Id: I44ec61bc26c8959b499bc94eb661762afdaf99ba

1 files changed, 1 insertions, 1 deletions

diff --git a/gnu/build/dbus-service.scm b/gnu/build/dbus-service.scm
index 8e067016f00..fae277dd3e3 100644
--- a/gnu/build/dbus-service.scm
+++ b/gnu/build/dbus-service.scm
@@ -91,7 +91,7 @@ each retry."
               ((sleep*) delay)            ;else wait and retry
               (loop (+ 1 attempts)))
             (error "maximum number of retry attempts reached"
-                   (quote body ...) args))))))
+                   (quote (begin body ...)) args))))))
 
 
 ;;;