Wrong LENGTH passed to AFTER-CHANGED-FUNCTIONS when using UNCOMMENT-REGION with MARKER arguments?

[Qiantan Hong]

Way to reproduce: 

Have the following in buffer

;; (thing)

M-: (uncomment-region (save-excursion (goto-char <before-;;>) (point-marker))

(save-excursion (goto-char <after-(thing);>) (point-marker)))

I get 

  (#<marker at 448 in *scratch*> #<marker at 458 in *scratch*>)

passed to before-change-functions,

  (#<marker at 448 in *scratch*> 455 7)

passed to after-change-functions

However, the LENGTH should be 10 instead of 7.

Any ideas?

Best,

Qiantan

smime.p7s
Description: S/MIME cryptographic signature