diff --git a/programs/develop/c--/trunk/directiv.h-- b/programs/develop/c--/trunk/directiv.h--
index 00f0768aec..9d67e7d086 100644
--- a/programs/develop/c--/trunk/directiv.h--
+++ b/programs/develop/c--/trunk/directiv.h--
@@ -141,7 +141,7 @@ dword pname1,pname2,j;
 	_llseek(dll,fptr+6,0); _lread(dll,#nsect,2);			 // Number of sections
 	delta=export;
 	i=1;
-	while(i<=nsect){
+	WHILE(i<=nsect){
 		EAX=i; EAX--; EAX=EAX*40; EAX+=260; EAX+=fptr;	// fptr+260+40*(i-1)
 		_llseek(dll,EAX,0); _lread(dll,#base,4); // RVA of section
 		IF(base<=export){
@@ -273,7 +273,7 @@ byte var_name[IDLENGTH];
 			linenum2++; // Обнаружен конец строки
 			totallines++;
 		}
-		else if(AL=='}'){	// блок закрыт
+		else IF(AL=='}'){	// блок закрыт
 			count--;
 			IF(count==0){ // конец процедуры
 				ESI><inptr2;
diff --git a/programs/develop/c--/trunk/tree.h-- b/programs/develop/c--/trunk/tree.h--
index 0a1661e180..7180fe4ef6 100644
--- a/programs/develop/c--/trunk/tree.h--
+++ b/programs/develop/c--/trunk/tree.h--
@@ -1,3 +1,4 @@
+#define STRING_ERROR	"string found in tree when trying to add to	it"
 // ---- Занесение поименованной константы в список
 AddConstToTree(dword keystring,constvalue)
 dword ptr,newptr; // idrec structure
@@ -32,7 +33,7 @@ dword ptr,newptr; // idrec structure
 				}
 				ptr=DSDWORD[ESI+right];
 			}
-			ELSE internalerror("string found in tree when trying to add to	it");
+			ELSE internalerror(STRING_ERROR);
 		}
 	}
 // Формируем новую запись в списке
@@ -110,7 +111,7 @@ dword ptr,newptr;
 				}
 				ptr=DSDWORD[ESI+right];
 			}
-			ELSE internalerror("string found in tree when trying to add to	it");
+			ELSE internalerror(STRING_ERROR);
 		}
 	}
 	ESI=newptr;