equal? from (scheme base) not halting when it should

[sham1]

Earlier today, I noticed a bug when I inputted the following forms in the REPL:

(import (scheme base))
(equal? '#1=(#1# . #1#) '#2=(#2# . #2#))

Instead of this halting as expected and required by R7RS, it instead goes into an infinite loop.