# Einfache Namensregel, 
# Name in Kleinbuchstaben + Datum

set retval [string tolower [$object toString]]
append retval -[clock format [clock seconds] -format "%Y%m%d"]