【IRIS】特定の文字でインデックスを構築すると再作成コマンドで不具合が発生する

Class developer.err.Index Extends (%Persistent, %Populate)
{

Index 文字列１Idx On 文字列１;

Property 文字列１ As %String;

}

d ##class(developer.err.Index).%BuildIndices(,1)
// 
//  while $listnext(mapList,ptr,map) {
//  ^
// <WIDE CHAR>SetMapSelectability+13^%SYSTEM.SQL.Util.1

s obj=##class(developer.err.Index).%New()
s obj.文字列１ = "サンプル"
w obj.%Save() // 1が返る

// データ取得
s obj=##class(developer.err.Index).%OpenId(1)
w obj.文字列１ // 「サンプル」が返る

// SQL実行
:sql
select * from developer_err.Index where 文字列１='サンプル'
2.      select * from developer_err.Index where 文字列１='サンプル'
 
ID      文字列１
1       サンプル
 
1 Rows(s) Affected
statement prepare time(s)/globals/cmds/disk: 0.1290s/35,645/179,974/7ms
          execute time(s)/globals/cmds/disk: 0.0006s/2/555/0ms
                          cached query class: %sqlcq.SAMPLE.cls11
---------------------------------------------------------------------------

// レコード削除
w ##class(developer.err.Index).%DeleteId(1) // 1が返る

<plans>
 <plan>
 <sql>
 select * from developer_err.Index where 文字列１='サンプル' /*#OPTIONS {""DynamicSQL"":1} */
 </sql>
 <cost value=""454.4""/>
 Read index map developer_err.Index.文字列１Idx, using the given %SQLUPPER(文字列１), and looping on ID.
 For each row:
     Read master map developer_err.Index.IDKEY, using the given idkey value.
     Output the row.
 </plan>
</plans>

w $SYSTEM.SQL.Util.SetMapSelectability("developer_err.Index",$lb("IDKEY","文字列１Idx"),1)
// 
//  while $listnext(mapList,ptr,map) {
//  ^
// <WIDE CHAR>SetMapSelectability+13^%SYSTEM.SQL.Util.1

s dt = $lb("IDKEY","文字列１Idx")
s cnv = $zu(28, dt, 5)
w $lg(cnv,1),",",$lg(cnv,2)
// IDKEY,
// W $LG(cnv,1),",",$LG(cnv,2)
//                  ^
// <WIDE CHAR>

// <WIDE CHAE>エラー
s dt = $lb("文字列１Idx")
s cnv = $zu(28, dt, 5)
w $lg(cnv,1) // エラー発生

// 正常に返る
s dt = "文字列１Idx"
s cnv = $zu(28, dt, 5)
w cnv // 文字列１IDX

// 文が鬱に変わる
s dt = $lb("文字列1Idx") // 1を半角に変更
s cnv = $zu(28, dt, 5)
w $lg(cnv,1) // 䖇字列1IDX

cnvChk	;
	f asc=1:1:66000 {
		s str = $c(asc)
		s chk = $zcvt(str,"U") // 大文字変換
		
		s chg = $zu(28, $lb(str), 5) // $$$UPPER()
		try {
			s chg = $lg(chg,1)
			w:(chk'=chg)&&(str'=chg) !,asc,":",str,"(",chk,")",",",chg
		}catch e{
			w !,asc,":",str,"：エラー"
		}
	}

d cnvChk