From 5fb94529b9c2e88d81ec14bcb229e3bd9a614b0d Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 3 Sep 2018 19:57:22 +0200
Subject: [PATCH] Release 0.17.1.

* configure (VERSION): Update to 0.17.1.
(main): Likewise.
* configure.sh (VERSION): Likewise.
* build-aux/GNUmakefile.in (gen-announce): Likewise.
* guix/git/mes.scm (mes, mes.git): Likewise.
---
 build-aux/GNUmakefile.in | 2 +-
 configure                | 6 +++---
 configure.sh             | 2 +-
 guix/git/mes.scm         | 6 +++---
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/build-aux/GNUmakefile.in b/build-aux/GNUmakefile.in
index 03166e98..a5207c31 100644
--- a/build-aux/GNUmakefile.in
+++ b/build-aux/GNUmakefile.in
@@ -325,7 +325,7 @@ gen-announce:
 	../gnulib/build-aux/announce-gen\
 	    --release-type=beta\
 	    --package-name=mes\
-	    --previous-version='0.16 '\
+	    --previous-version='0.17 '\
             --current-version=$(VERSION)\
 	    --gpg-key-id=$(GPG_KEY_ID)\
 	    --url-directory=https://ftp.gnu.org/gnu/mes\
diff --git a/configure b/configure
index 9b0c315b..13d6eb3a 100755
--- a/configure
+++ b/configure
@@ -61,7 +61,7 @@ exec ${guile} -L . --no-auto-compile -e '(configure)' -s "$0" ${1+"$@"}
 
 (define *shell* "sh")
 (define PACKAGE "mes")
-(define VERSION "0.17")
+(define VERSION "0.17.1")
 
 ;;; Utility
 (define (logf port string . rest)
@@ -355,10 +355,10 @@ Some influential environment variables:
                              (make-dep "guix" '(0 13) #:optional? #t)
                              (make-dep "bash" '(2 0) #:optional? #t)
                              (make-dep "guile-tools" '(2 0))
-                             (make-dep "mes-seed" '(0 17) #:optional? #t
+                             (make-dep "mes-seed" '(0 17 1) #:optional? #t
                                        #:commands (list (string-append mes-seed "/refresh.sh"))
                                        #:file-name mes-seed)
-                             (make-dep "tinycc-seed" '(0 17) #:optional? #t
+                             (make-dep "tinycc-seed" '(0 17 1) #:optional? #t
                                        #:commands (list (string-append tinycc-seed "/refresh.sh"))
                                        #:file-name tinycc-seed)
                              (make-dep "cc" '(2 95) #:commands '("gcc"))
diff --git a/configure.sh b/configure.sh
index 3918c2e3..4e7cc871 100755
--- a/configure.sh
+++ b/configure.sh
@@ -20,7 +20,7 @@
 
 set -e
 
-VERSION=0.17
+VERSION=0.17.1
 
 # parse --prefix=prefix
 cmdline=$(echo "$@")
diff --git a/guix/git/mes.scm b/guix/git/mes.scm
index 2defd4ef..aa561275 100644
--- a/guix/git/mes.scm
+++ b/guix/git/mes.scm
@@ -111,14 +111,14 @@ hex2 linker.")
 
 (define-public mes
   (let ((triplet "i686-unknown-linux-gnu")
-        (version "0.17"))
+        (version "0.17.1"))
     (package
       (name "mes")
       (version version)
       (source (origin
                 (method url-fetch)
                 (uri (string-append
-                      "https://alpha.gnu.org/pub/gnu/mes/mes-" version ".tar.gz"))
+                      "https://ftp.gnu.org/pub/gnu/mes/mes-" version ".tar.gz"))
                 (sha256
                  (base32 #!mes!# "1j32x4zqy2cqjlg9m35f2411mwac2b0p5ch4hm99gddmfbxzgyhg"))))
       (build-system gnu-build-system)
@@ -158,7 +158,7 @@ Guile-] Scheme interpreter prototype in C and a Nyacc-based C compiler in
       (license gpl3+))))
 
 (define-public mes.git
- (let ((version "0.17")
+ (let ((version "0.17.1")
         (revision "0")
         (commit (read-string (open-pipe "git show HEAD | head -1 | cut -d ' ' -f 2" OPEN_READ))))
     (package