diff --git a/echo-client.rkt b/echo-client.rkt
index a283327..797444b 100644
--- a/echo-client.rkt
+++ b/echo-client.rkt
@@ -111,9 +111,9 @@
     (define now (current-inexact-milliseconds))
     (if (< now (+ start-time ping-time))
 	(loop (+ count 1))
-	(let* ((elapsed-sec (/ (- now start-time) 1000.0))
-	       (roundtrip-latency (/ elapsed-sec count)))
-	  (when record-results?
+        (when record-results?
+          (let* ((elapsed-sec (/ (- now start-time) 1000.0))
+                 (roundtrip-latency (/ elapsed-sec count)))
 	    (write-logbook-datum! Tping (list (connection-count)
 					      roundtrip-latency
 					      (/ 1.0 roundtrip-latency)