Index: Include/Classes/System/Text/StringBuilder.ab
===================================================================
--- Include/Classes/System/Text/StringBuilder.ab	(revision 272)
+++ Include/Classes/System/Text/StringBuilder.ab	(revision 288)
@@ -308,5 +308,8 @@
 		EnsureCapacity(newSize)
 		separateBuffer()
-		ActiveBasic.Strings.ChrMove(VarPtr(chars[i + lenTotal]), VarPtr(chars[i]), (size - index) As SIZE_T)
+
+		' TODO: fix me!（定義されていない変数iが使われています）
+		'ActiveBasic.Strings.ChrMove(VarPtr(chars[i + lenTotal]), VarPtr(chars[i]), (size - index) As SIZE_T)
+
 		Dim i As Long
 		For i = 0 To ELM(n)