diff --git a/lang/basic/src.old/eval.c b/lang/basic/src.old/eval.c
index 40bc8c78..e35af1c9 100644
--- a/lang/basic/src.old/eval.c
+++ b/lang/basic/src.old/eval.c
@@ -157,7 +157,7 @@ int	ltype,rtype,operator;
 	else
 	if( result==STRINGTYPE)
 	{
-		emcode("cal","$_strcompare");
+		emcode("cal","$_strcomp");
 		emcode("asp",EMPTRSIZE);
 		emcode("asp",EMPTRSIZE);
 		emcode("lfr",EMINTSIZE);