- TypeOf(symbol_name->header) == type_SimpleString &&
- strcmp((char *)symbol_name->data, name) == 0)
+ /* FIXME: Broken with more than one type of string
+ (i.e. even broken given (VECTOR NIL) */
+ widetag_of(symbol_name->header) == SIMPLE_BASE_STRING_WIDETAG &&
+ strcmp((char *)symbol_name->data, name) == 0)