diff --git a/extern/cloop/src/cloop/Generator.cpp b/extern/cloop/src/cloop/Generator.cpp
index 15c2e89b23..8e398cef59 100644
--- a/extern/cloop/src/cloop/Generator.cpp
+++ b/extern/cloop/src/cloop/Generator.cpp
@@ -1292,7 +1292,7 @@ void PascalGenerator::generate()
 				}
 				else
 				{
-					char* sResult;
+					const char* sResult;
 					switch (method->returnTypeRef.token.type)
 					{
 						case Token::TYPE_STRING: