- if (!var_is_valid_name (name, false) || *name == '#')
- error (r, _("position %d: Invalid variable name `%s'."), name);
- st_uppercase (name);
+ if (!var_is_valid_name (name, false) || *name == '#' || *name == '$')
+ error (r, _("position %d: Invalid variable name `%s'."), i, name);
+ str_uppercase (name);