                                 default-directory
                                 gen-tags--intermediate-dest-file))
     (with-current-buffer gen-tags--buffer
+      (goto-char (point-max))
       (insert gen-tags--msg))
     (setq args
           (append arg-list

;; Author:  <dan.harms@xrtrading.com>
;; Created: Wednesday, March 18, 2015
;; Version: 1.0
;; Modified Time-stamp: <2015-05-19 12:11:01 dan.harms>
;; Keywords: etags, ctags

;; This program is free software; you can redistribute it and/or modify

     (lambda (proc change)
       (when (string-match "\\(finished\\|exited\\)" change)
         (with-current-buffer gen-tags--buffer
           (goto-char (point-max))
           (insert "done.\n")
           (when (and gen-tags--remote gen-tags-copy-remote)
             (let ((start (current-time)))
