Class Stack # ... Stack proc available_stacks {} { return [llength [my info instances]] } Stack s1 Stack s2 puts [Stack available_stacks]