   (let ((elapsed (float-time
                   (time-subtract (current-time) gen-tags--start-time))))
     (with-current-buffer gen-tags--buffer
+      (goto-char (point-max))
       (insert
        (format "\nTAGS generation finished at %s (it took %.3f seconds).\n\n\n"
                (current-time-string) elapsed)))))

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

     (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)))
