オブジェクトのslotSummaryを呼ぶと落ちる件

以下のコードを「doFile("hoge.io")」で実行したあと、何でもいいのでオブジェクトのslotSummaryを呼ぶと、落ちる。

バージョンが古い(20080107)ので、後で新しいもので試そう。

Model := Object clone do(
    connect := method(db,
        appendProto(db connection)
    )
    
    disconnect := method(db,
         removeProto(db connection)
    )
)

db := Object clone do(
    entities := List()
    connection := Object clone do(
        put := method(
            db entities append(call target)
            "put!" print
        )
        
        delete := method(
            db entities remove(call target)
            "delete!" print
        )
    )
)

User := Model clone do(
    create := method(nickname, email,
        user := User clone
        user _nickname := nickname
        user _email := email
        user
    )
    
    nickname := method(_nickname)
    email := method(_email)
)

testUser := User create("testUser", "testUser@example.com")
testUser connect(db) put

Io> 1 slotSummary

Exception: User does not respond to 'target'


Coroutine Exception loop detected

c:\usr\local\bin>

中身は、モデルのインスタンスごとにDB接続を管理してみるテストです。