diff --git a/guix/utils.scm b/guix/utils.scm
index d0a09c9f5ce9b5961a0f41148a0a60ce97c7a7e4..2c905cafb7c8c99375e712ed7b03ddf1309d12ed 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -662,4 +662,5 @@ (define (source-properties->location loc)
   (let ((file (assq-ref loc 'filename))
         (line (assq-ref loc 'line))
         (col  (assq-ref loc 'column)))
-    (location file (and line (+ line 1)) col)))
+    ;; In accordance with the GCS, start line and column numbers at 1.
+    (location file (and line (+ line 1)) (and col (+ col 1)))))