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

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

              (- (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 (current-column))))

(defconst caml-leading-kwops-regexp
  (concat
