set jo jim puts $$jo ;# returns "$jim" puts [subst $$jo] ;# returns "can't read "jim": no such variable" set fred jo puts [subst $$fred] ;# returns "jim"