Fix for Jira bug I7-2094

README.md

@@ -1,6 +1,6 @@
 # Inform 7
 
-v10.1.0-beta+6V01 'Krypton' (8 May 2022)
+v10.1.0-beta+6V02 'Krypton' (9 May 2022)
 
 ## About Inform 7
 

build.txt

@@ -1,3 +1,3 @@
 Prerelease: beta
-Build Date: 8 May 2022
-Build Number: 6V01
+Build Date: 9 May 2022
+Build Number: 6V02

inform7/Internal/Extensions/Graham Nelson/Unicode Full Character Names.i7x

@@ -2702,7 +2702,7 @@ circled ideograph financial translates into Unicode as 12950.
 circled ideograph fire translates into Unicode as 12939.
 circled ideograph five translates into Unicode as 12932.
 circled ideograph four translates into Unicode as 12931.
-circled ideograph have translates into Unicode as 12946.
+(circled ideograph have) translates into Unicode as 12946.
 circled ideograph high translates into Unicode as 12964.
 circled ideograph item translates into Unicode as 12960.
 circled ideograph labor translates into Unicode as 12952.
@@ -9659,7 +9659,7 @@ parenthesized ideograph financial translates into Unicode as 12854.
 parenthesized ideograph fire translates into Unicode as 12843.
 parenthesized ideograph five translates into Unicode as 12836.
 parenthesized ideograph four translates into Unicode as 12835.
-parenthesized ideograph have translates into Unicode as 12850.
+(parenthesized ideograph have) translates into Unicode as 12850.
 parenthesized ideograph labor translates into Unicode as 12856.
 parenthesized ideograph metal translates into Unicode as 12846.
 parenthesized ideograph moon translates into Unicode as 12842.

inform7/assertions-module/Chapter 3/Translation Requests.w

@@ -133,8 +133,8 @@ generated anyway; Inform authors never type them.
 
 =
 <translates-into-unicode-sentence-subject> ::=
-	<unicode-character-name> |     ==> { pass 1 }
-	...                            ==> { -1, - }
+	( ... ) |
+	...
 
 <translates-into-unicode-sentence-object> ::=
 	<cardinal-number-unlimited> |  ==> { UnicodeLiterals::max(R[1]), - }
@@ -156,15 +156,16 @@ generated anyway; Inform authors never type them.
 	int cc = <<r>>;
 
 	<translates-into-unicode-sentence-subject>(SP);
-	if ((<<r>> != -1) && (<<r>> != cc)) {
+	wording CN = GET_RW(<translates-into-unicode-sentence-subject>, 1);
+	if ((<unicode-character-name>(CN)) && (<<r>> != cc)) {
 		StandardProblems::sentence_problem(Task::syntax_tree(),
 			_p_(PM_UnicodeAlready),
 			"this Unicode character name has already been translated",
 			"so there must be some duplication somewhere.");
 		return FALSE;
 	}
 
-	Nouns::new_proper_noun(SP, NEUTER_GENDER, ADD_TO_LEXICON_NTOPT, MISCELLANEOUS_MC,
+	Nouns::new_proper_noun(CN, NEUTER_GENDER, ADD_TO_LEXICON_NTOPT, MISCELLANEOUS_MC,
 		Diagrams::new_PROPER_NOUN(OP), Task::language_of_syntax());
 
 @h Translation into Inter.