2 files changed, 3 insertions, 2 deletions

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index a1b73e63165..3ba4b86a4fd 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -252,7 +252,7 @@ network to check in GNU's database."
   (make-regexp "^([^.]+)[-_][vV]?([0-9]|[^-])+(-(src|[sS]ource|gnu[0-9]))?\\.(tar\\.|tgz|zip$)"))
 
 (define %alpha-tarball-rx
-  (make-regexp "^.*-.*[0-9](-|~)?(alpha|beta|rc|RC|cvs|svn|git)-?[0-9\\.]*\\.tar\\."))
+  (make-regexp "^.*-.*[0-9](-|~|\\.)?(alpha|beta|rc|RC|cvs|svn|git)-?[0-9\\.]*\\.tar\\."))
 
 (define (release-file? project file)
   "Return #f if FILE is not a release tarball of PROJECT, otherwise return
diff --git a/tests/gnu-maintenance.scm b/tests/gnu-maintenance.scm
index abe74d799cf..fcaa2a068eb 100644
--- a/tests/gnu-maintenance.scm
+++ b/tests/gnu-maintenance.scm
@@ -47,7 +47,8 @@
                 ("guile" "guile-2.0.11.tar.gz.sig")
                 ("mit-scheme" "mit-scheme-9.2-i386.tar.gz")
                 ("mit-scheme" "mit-scheme-9.2-doc-pdf.tar.gz")
-                ("gnutls" "gnutls-3.2.18-w32.zip")))))
+                ("gnutls" "gnutls-3.2.18-w32.zip")
+                ("valgrind" "valgrind-3.20.0.RC1.tar.bz2")))))
 
 (test-assert "tarball->version"
   (let ((tarball->version (@@ (guix gnu-maintenance) tarball->version)))