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

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

  (save-excursion
    (back-to-indentation)
    (cond
     ((looking-at comment-start-skip) (current-column))
     ((caml-in-comment-p)
      (let ((closing (looking-at "\\*)"))
