tie %curRecord, 'Tcl::Var', $tcl, "curRecord";

##</code><code>##

	%curRecord = %{SelectedRecords()};
	Error: Tix Error: Can't locate object method "CLEAR" via package Tcl::Var" at...

##</code><code>##

	$temp = SelectedRecords();				
	foreach (keys %{$temp}){
		$curRecord{$_} = $temp->{$_};
	}