     (save-excursion
       (when (or (looking-at "^[0-9]")
 		(re-search-backward "^[0-9]" nil t))
-	(skip-chars-forward "0-9./")
+	(skip-chars-forward "0-9./=")
 	(delete-horizontal-space)
 	(if (member (char-after) '(?\* ?\!))
 	    (progn

		      (insert (make-string width ? ))))))
	    (forward-line))
	  (goto-char (car bounds))
	  (skip-chars-forward "0-9./ \t")
	  (insert state " ")
	  (if (search-forward "  " (line-end-position) t)
	      (delete-char 2)))))

    ;; transaction
    (save-excursion
      (goto-char (car bounds))
      (skip-chars-forward "0-9./= \t")
      (setq cleared (and (member (char-after) '(?\* ?\!))
			 (char-after)))
      (when cleared
