 
   (let* (in-expr
          (kwop (cond
+                ((looking-at ";;")
+                 (beginning-of-line 1))
                 ((looking-at "|\\([^]|]\\|\\'\\)")
                  (caml-find-pipe-match))
                 ((and (looking-at caml-phrase-start-keywords)

              (- (symbol-value (nth 3 kwop-info))
                 (if (looking-at "|") caml-|-extra-indent 0))))))
         (extra (if in-expr caml-apply-extra-indent 0)))
         (+ indent-diff extra (if (string= kwop ";;") 0 (current-column)))))

(defconst caml-leading-kwops-regexp
  (concat

       ((caml-at-sexp-close-p)
        (caml-find-paren-match (following-char)))
       ((and (string= kwop ";") (= (preceding-char) ?\;))
        (goto-char 0)
        (setq kwop ";;")
        (setq done t))
       ((and (>= prio 2) (string= kwop "|")) (setq done t))
