# HG changeset patch
# User darius
# Date 1026974859 0
# Node ID 2bcb84ead02ebb142cd754218fd901a16ce0d8af
# Parent  c122160e07da40abce7cfd4de2baee34654d8773
Use Tcl 8.2
Fix setting the album artist changes

diff -r c122160e07da -r 2bcb84ead02e tracknamer.tcl
--- a/tracknamer.tcl	Thu Jul 18 06:38:42 2002 +0000
+++ b/tracknamer.tcl	Thu Jul 18 06:47:39 2002 +0000
@@ -1,6 +1,6 @@
 #!/bin/sh
 # tcl magic \
-exec tclsh8.0 $0 $*
+exec tclsh8.2 $0 $*
 
 #
 # This software is copyright Daniel O'Connor (darius@dons.net.au) 1998, 1999
@@ -137,7 +137,7 @@
     global tracks;
 
     set tracks(albumname) $tracks(tmp:albumname);
-    set $tracks(albumartist) tracks(tmp:albumartist);
+    set tracks(albumartist) $tracks(tmp:albumartist);
 
     for { set i 1 } { $i <= $tracks(number) } { incr i } {
 	set tracks(artist:$i) $tracks(tmp:artist:$i);