Tcl Source Code

In the documentation for my, in the example the count method calls the command print: this should probably be puts.

Corrected code:

oo::class create c {
    method count {} {
        my variable counter
        puts [incr counter]
    }
}