#$XS_VERSION = $Tk::VERSION;  #old line
$XS_VERSION = 800.023;        #new line (now line 14)