From 5a57434f3321be7288a7afe618ce2db299f97b4f Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 13 Nov 2007 08:24:32 +0000
Subject: [PATCH]   * fix modetostring

git-svn-id: trunk@9227 -
---
 packages/fpmkunit/src/fpmkunit.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fpmkunit/src/fpmkunit.pp b/packages/fpmkunit/src/fpmkunit.pp
index 97d25770c2..466a52b926 100644
--- a/packages/fpmkunit/src/fpmkunit.pp
+++ b/packages/fpmkunit/src/fpmkunit.pp
@@ -1206,6 +1206,7 @@ Function ModeToString(Mode: TCompilerMode) : String;
 
 begin
   Result:=LowerCase(GetenumName(TypeInfo(TCompilerMode),Ord(Mode)));
+  Delete(Result,1,2);
 end;
 
 Function StringToMode(const S : String) : TCompilerMode;