diff --git a/benchmarks/Makefile.in b/benchmarks/Makefile.in
index e7d768b..4e9ac44 100644
--- a/benchmarks/Makefile.in
+++ b/benchmarks/Makefile.in
@@ -224,9 +224,9 @@ $(srcdir)/Makefile.in:  $(srcdir)/Makefile.am  $(am__configure_deps)
 	      exit 1;; \
 	  esac; \
 	done; \
-	echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign  benchmarks/Makefile'; \
+	echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu  benchmarks/Makefile'; \
 	cd $(top_srcdir) && \
-	  $(AUTOMAKE) --foreign  benchmarks/Makefile
+	  $(AUTOMAKE) --gnu  benchmarks/Makefile
 .PRECIOUS: Makefile
 Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
 	@case '$?' in \
diff --git a/doc/Makefile.in b/doc/Makefile.in
index 41c0d83..01ba2ca 100644
--- a/doc/Makefile.in
+++ b/doc/Makefile.in
@@ -171,9 +171,9 @@ $(srcdir)/Makefile.in:  $(srcdir)/Makefile.am  $(am__configure_deps)
 	      exit 1;; \
 	  esac; \
 	done; \
-	echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign  doc/Makefile'; \
+	echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu  doc/Makefile'; \
 	cd $(top_srcdir) && \
-	  $(AUTOMAKE) --foreign  doc/Makefile
+	  $(AUTOMAKE) --gnu  doc/Makefile
 .PRECIOUS: Makefile
 Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
 	@case '$?' in \
diff --git a/lab/bzr-snapshot.ss b/lab/bzr-snapshot.ss
new file mode 100644
index 0000000..3f3b408
--- /dev/null
+++ b/lab/bzr-snapshot.ss
@@ -0,0 +1,37 @@
+(import (ikarus))
+
+(define (shell cmd . args)
+  (let-values ([(pid op ip ep) (apply process cmd args)])
+    (let ([ip (transcoded-port ip (native-transcoder))])
+      (let ([str (get-string-all ip)])
+        (close-input-port ip)
+        (close-output-port op)
+        (close-input-port ep)
+        (let ([w (waitpid pid)])
+          (unless (zero? (wstatus-exit-status w))
+            (apply error 'shell "failed" w cmd args)))
+        str))))
+
+(define (make-snapshot repo dest-dir file-template)
+  (let ([revno 
+         (read (open-string-input-port (shell "bzr" "revno" repo)))])
+    (let ([file (string-append dest-dir "/" (format file-template revno))])
+      (unless (file-exists? file)
+        (shell "bzr" "export"
+               "-r" (number->string revno) 
+               file repo)))))
+
+;(let ()
+;  (define home (getenv "HOME"))
+;  (define repo (string-append home "/Work/" "ikarus.dev"))
+;  (define dest-dir (string-append repo "/snapshots"))
+;  (define file-template "ikarus-scheme-r~a.tgz")
+;  (make-snapshot repo dest-dir file-template))
+
+(apply
+  (case-lambda
+    [(script repo dest-dir file-template)
+     (make-snapshot repo dest-dir file-template)]
+    [(script . args)
+     (error script (format "Usage: ~a <repo-dir> <dest-dir> <file-template>" script))])
+  (command-line))
diff --git a/lib/Makefile.in b/lib/Makefile.in
index 6fc100d..db180c5 100644
--- a/lib/Makefile.in
+++ b/lib/Makefile.in
@@ -181,9 +181,9 @@ $(srcdir)/Makefile.in:  $(srcdir)/Makefile.am  $(am__configure_deps)
 	      exit 1;; \
 	  esac; \
 	done; \
-	echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign  lib/Makefile'; \
+	echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu  lib/Makefile'; \
 	cd $(top_srcdir) && \
-	  $(AUTOMAKE) --foreign  lib/Makefile
+	  $(AUTOMAKE) --gnu  lib/Makefile
 .PRECIOUS: Makefile
 Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
 	@case '$?' in \
diff --git a/scheme/Makefile.in b/scheme/Makefile.in
index 8afb152..e23ec08 100644
--- a/scheme/Makefile.in
+++ b/scheme/Makefile.in
@@ -268,9 +268,9 @@ $(srcdir)/Makefile.in:  $(srcdir)/Makefile.am  $(am__configure_deps)
 	      exit 1;; \
 	  esac; \
 	done; \
-	echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign  scheme/Makefile'; \
+	echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu  scheme/Makefile'; \
 	cd $(top_srcdir) && \
-	  $(AUTOMAKE) --foreign  scheme/Makefile
+	  $(AUTOMAKE) --gnu  scheme/Makefile
 .PRECIOUS: Makefile
 Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
 	@case '$?' in \
diff --git a/scheme/last-revision b/scheme/last-revision
index 48bb7a1..41cca09 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1814
+1815
diff --git a/src/Makefile.in b/src/Makefile.in
index bab203a..a06b68c 100644
--- a/src/Makefile.in
+++ b/src/Makefile.in
@@ -207,9 +207,9 @@ $(srcdir)/Makefile.in:  $(srcdir)/Makefile.am  $(am__configure_deps)
 	      exit 1;; \
 	  esac; \
 	done; \
-	echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign  src/Makefile'; \
+	echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu  src/Makefile'; \
 	cd $(top_srcdir) && \
-	  $(AUTOMAKE) --foreign  src/Makefile
+	  $(AUTOMAKE) --gnu  src/Makefile
 .PRECIOUS: Makefile
 Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
 	@case '$?' in \