Index: BasicCompiler32/Compile_Object.cpp
===================================================================
--- BasicCompiler32/Compile_Object.cpp	(revision 67)
+++ BasicCompiler32/Compile_Object.cpp	(revision 68)
@@ -208,4 +208,8 @@
 	// コンストラクタの呼び出し
 	////////////////////////////
+
+	if( lstrcmp(classObj.name,"proc")==0){
+		int i=0;
+	}
 
 	BOOL bSomeObjects;
Index: BasicCompiler32/NumOpe.cpp
===================================================================
--- BasicCompiler32/NumOpe.cpp	(revision 67)
+++ BasicCompiler32/NumOpe.cpp	(revision 68)
@@ -73,6 +73,6 @@
 	///////////////////////////////////////////////////////
 
-	char *parameter = (char *)malloc( lstrlen( lpszText ) + 3 );
-	lstrcpy( parameter, lpszText );
+	char *parameter = (char *)malloc( lstrlen( lpszText ) + 32 );
+	sprintf( parameter, "\"%s\"%c%c*Char", lpszText, 1, ESC_AS );
 	SetStringQuotes( parameter );
 
@@ -196,6 +196,5 @@
 						pobj_Class=(CClass *)lpBaseIndex;
 						TYPEINFO BaseTypeInfo = {BaseType,lpBaseIndex};
-						if(IsStringSubsituation(pobj_Class)
-							|| IsStringObjectType(BaseTypeInfo)){
+						if(IsStringObjectType(BaseTypeInfo)){
 							//要求タイプがオブジェクトであり、Stringの受け入れが可能な場合