           (user-error "Nothing more to process!"))
       (let ((overlay (make-overlay beg end (current-buffer) nil nil)))
         (fstar-subp-set-status overlay 'pending)
-	(overlay-put overlay 'is-lax lax)
+        (overlay-put overlay 'fstar-subp--lax lax)
         (fstar-subp-process-queue)))))
 
 (defcustom fstar-subp-block-sep "\\(\\'\\|\\s-*\\(\n\\s-*\\)\\{3,\\}\\)" ;; FIXME add magic comment

  (fstar-subp-start)
  (fstar-subp-set-status overlay 'busy)
  (setq fstar-subp--busy-now overlay)
  (fstar-subp-send-region (overlay-start overlay) (overlay-end overlay) (overlay-get overlay 'is-lax)))

(defun fstar-subp-process-queue ()
  "Process the next pending overlay, if any."

  "Set status of OVERLAY to STATUS."
  (fstar-assert (memq status fstar-subp-statuses))
  (let ((inhibit-read-only t)
        (face-name (if (and (eq (overlay-get overlay 'fstar-subp--lax) 1)
			    (string= (symbol-name status) "processed")) 
		       "fstar-subp-overlay-processedlax-face"
		     (concat "fstar-subp-overlay-" (symbol-name status) "-face"))))
