 	       (delete-region (point-min) (point-max))
 	       (set-process-filter proc 'javascript-evaluator-filter)
 	       (process-send-string proc ":help\n")
+	       (when *javascript-evaluator-initialize*
+		 (dolist (str *javascript-evaluator-initialize*)
+		   (process-send-string proc (format "%s\n" str))))
 	       )))
 	  (t
 	   (fi::switch-to-buffer-new-screen buffer-name)

;;* 
;;  COPYRIGHT (C) PLANISWARE 2016-05-27
;;
;;  All Rights Reserved
;;

;;  employees for the sole purpose of conducting PLANISWARE business.
;;
;;**************************************************************************

(when (eq *javascript-evaluator-mode* :repl)
  (global-set-key [f3] 'switch-to-script-evaluator))

