 
 (defun m31-ocamldebug nil
   (interactive)
-  (ocamldebug (concat default-directory "andromeda.d.byte"))
+  (ocamldebug
+   (concat
+    (locate-dominating-file
+     buffer-file-name
+     ".dir-locals.el") "andromeda.d.byte"))
   (mapc
    (lambda (f)
      (add-hook 'comint-preoutput-filter-functions f nil t))

(setq m31-comint-filters
      '((lambda (s)
          (replace-regexp-in-string "^ocd " "(ocd) " s))

      "
"))))
;; (buffer-local-set-key (kbd "C-M-x") 'm31-send-current-statement)


(provide 'andromeda)
;;; andromeda.el ends here
