       (if (fi:process-running-p proc buffer-name)
 	  (fi::switch-to-buffer-new-screen buffer-name)
 	(progn 
-	  (setq proc (fi:open-lisp-listener -1 buffer-name 'fi::setup-tcp-connection "(format t \"Bienvenue\")(jvs::js-repl)" 'js-evaluator-mode))
+;;	  (setq proc (fi:open-lisp-listener -1 buffer-name 'fi::setup-tcp-connection "(jvs::js-repl)" ))
+	  (setq proc (fi:open-lisp-listener -1 buffer-name 'fi::setup-tcp-connection "(jvs::js-repl)" 'js-evaluator-mode))
+	  (erase-buffer)
 	  (set-process-filter proc 'javascript-evaluator-filter))
 	))))
 

  (setq mode-name "Javascript evaluator")
  ;; js comments
  (set (make-local-variable 'comment-start) "// ")
  (set (make-local-variable 'comment-end) "")
)

(defun fi:open-lisp-listener (&optional buffer-number buffer-name

;; mode pour la coloration syntaxique

(setq *js-keywords*
 '(("^Warning[ ]*:.*" . font-lock-warning-face)
   ("^Error[ ]*:.*" . font-lock-variable-name-face)
;;   ("^Return  : .*" . font-lock-type-face)
   ("^Return[ ]*:[^\"\n]*" . font-lock-type-face)
;;   ("^Applet used[ ]*: .*" . font-lock-function-name-face)
   ("^Info[ ]*:.*" . font-lock-function-name-face)
  ;; ("JS: " . font-lock-string-face)
   )
 )

;;(define-derived-mode js-evaluator-mode lisp-listener-mode
(define-derived-mode js-evaluator-mode prog-mode
  ;; js font lock
  (setq font-lock-defaults '(*js-keywords*))
