=== modified file 'site-lisp/tuareg-mode-1.45.6/tuareg.el'
--- site-lisp/tuareg-mode-1.45.6/tuareg.el	2010-05-15 15:39:29 +0000
+++ site-lisp/tuareg-mode-1.45.6/tuareg.el	2010-05-15 16:00:02 +0000
@@ -2849,9 +2849,10 @@
   (if cmd
       (setq tuareg-interactive-program cmd)
     (if (not (comint-check-proc tuareg-interactive-buffer-name))
-        (setq tuareg-interactive-program
-              (read-shell-command "Caml toplevel to run: "
-                                  tuareg-interactive-program))))
+        (if (not tuareg-interactive-program)
+            (setq tuareg-interactive-program
+                  (read-shell-command "Caml toplevel to run: "
+                                      tuareg-interactive-program)))))
   (if (not (comint-check-proc tuareg-interactive-buffer-name))
       (let ((cmdlist (tuareg-args-to-list tuareg-interactive-program))
             (process-connection-type nil))