diff --git a/src/top/utop.el b/src/top/utop.el index 973d4c7..5e50b78 100644 --- a/src/top/utop.el +++ b/src/top/utop.el @@ -663,8 +663,9 @@ it is started." (utop-process-line line) (progn (save-match-data - (when (string-match "protocol-version:\\([0-9]+\\)" line) - (setq utop-protocol-version (match-string 1 line)))) + (if (string-match "protocol-version:\\([0-9]+\\)" line) + (setq utop-protocol-version (match-string 1 line)) + (utop-process-line line))) (setq utop--read-version t))) ;; Remove it and continue (setq lines (cdr lines))))