2 files changed, 7 insertions, 5 deletions

diff --git a/guix/lint.scm b/guix/lint.scm
index ad639a63f75..a111a854ee6 100644
--- a/guix/lint.scm
+++ b/guix/lint.scm
@@ -398,7 +398,9 @@ superfluous when building natively and incorrect when cross-compiling."
 
   (define (check-ends-with-period description)
     "Checks that a description field ends with a period."
-    (if (not (string-suffix? "." description))
+    (if (not (or (string-null? description)       ;check-not-empty
+                 (string-suffix? " " description) ;check-no-trailing-whitespace
+                 (string-suffix? "." description)))
         (list
          (make-warning package
                        (G_ "description should end with a period")
diff --git a/tests/lint.scm b/tests/lint.scm
index f712c38c3fd..1f38f931c8a 100644
--- a/tests/lint.scm
+++ b/tests/lint.scm
@@ -119,7 +119,7 @@
   "Texinfo markup in description is invalid"
   (single-lint-warning-message
    (check-description-style
-    (dummy-package "x" (description (identity "f{oo}b@r"))))))
+    (dummy-package "x" (description (identity "f{oo}b@r."))))))
 
 (test-equal "description: does not start with an upper-case letter"
   "description should start with an upper-case letter or digit"
@@ -131,7 +131,7 @@
 (test-equal "description: may start with texinfo markup"
   '()
   (check-description-style
-   (dummy-package "x" (description "@emph{Maxwell Equations of Software}"))))
+   (dummy-package "x" (description "@emph{Maxwell Equations of Software}."))))
 
 (test-equal "description: may start with a digit"
   '()
@@ -187,14 +187,14 @@
   "description should not contain trademark sign '™' at 20"
   (single-lint-warning-message
    (let ((pkg (dummy-package "x"
-                             (description "Does The Right Thing™"))))
+                             (description "Does The Right Thing™."))))
      (check-description-style pkg))))
 
 (test-equal "description: may not contain trademark signs: ®"
   "description should not contain trademark sign '®' at 17"
   (single-lint-warning-message
    (let ((pkg (dummy-package "x"
-                             (description "Works with Format®"))))
+                             (description "Works with Format®."))))
      (check-description-style pkg))))
 
 (test-equal "description: suggest ornament instead of quotes"