   (message "Evaluating buffer")
   (process-send-region (zomp-get-toplevel-buffer 'create) (buffer-end -1) (buffer-end 1))
   (process-send-string (zomp-get-toplevel-buffer) "
-"))
+")
+  (zomp-tl-move-point-to-end))
 
 (defun zomp-tl-run-test ()
   (interactive)
   (message "Running function test")
+  (zomp-tl-move-point-to-end)
   (zomp-tl-do "!run test"))
 
 (defun zomp-run (&optional prefix)

  (message "Evaluating function at point")
  (save-excursion
    (zomp-mark-current)
    (zomp-tl-eval-region)))

(defun zomp-tl-eval-current-and-goto-next ()
  (interactive)

  (interactive "MName of function: ")
  (when (= 0 (length funcname))
    (setq funcname "main"))
  (zomp-tl-move-point-to-end)
  (zomp-tl-do (concat "!run " funcname)))

(defun zomp-tl-list-bindings (regexps)
