Index: trunk/Include/basic/dos_console.sbp
===================================================================
--- trunk/Include/basic/dos_console.sbp	(revision 457)
+++ trunk/Include/basic/dos_console.sbp	(revision 473)
@@ -10,6 +10,6 @@
 Dim _System_hConsoleIn = GetStdHandle(STD_INPUT_HANDLE)
 System.Console.SetIn(
-	New System.IO.StreamReader(
-		New System.IO.FileStream(_System_hConsoleIn, System.IO.FileAccess.Read, False)))
+	System.IO.TextReader.Synchronized(New System.IO.StreamReader(
+		New System.IO.FileStream(_System_hConsoleIn, System.IO.FileAccess.Read, False))))
 
 '---------- command.sbp内で定義済み ----------
@@ -57,16 +57,5 @@
 
 	Dim dwAccessBytes As DWord
-#ifdef __STRING_UNICODE_WINDOWS_ANSI
-'	Debug
-	Dim oldAlloc = _System_AllocForConvertedString
-	_System_AllocForConvertedString = AddressOf (_System_malloc)
-	Dim pszOut As PCSTR
-	Dim len = GetStr(buf, pszOut)
-	_System_AllocForConvertedString = oldAlloc
-	WriteConsole(_System_hConsoleOut, pszOut, len, dwAccessBytes, 0)
-	_System_free(pszOut)
-#else
 	WriteConsole(_System_hConsoleOut, buf.StrPtr, buf.Length, dwAccessBytes, 0)
-#endif
 End Sub
 /* TODO: _System_GetUsingFormatを用意して実装する