if {![exists -proc classdump]} {
	proc classdump {o} {
		foreach var [$o vars] {
			puts [format {%20s %s} $var [$o get $var]]
		}
	}
}