#4 tkdesk shell script bombs

[Anonymous]

Built from tkdesk-2.0.tar.gz on a SuSE 9.1, i386
system. Configure,
make, make install all go without error. First
invocation of tkdesk at
command prompt yields:

/root # tkdesk
Error in startup script: can't rename "itcl_class":
command doesn't exist
while executing
"rename itcl_class itcl_class-orig"
invoked from within
"if {[info command itcl_class-orig] == ""} {
rename itcl_class itcl_class-orig
proc itcl_class {name def} {
catch {rename $name {}}
uplevel..."
(file "/usr/local/bin/tkdesk" line 598)