From fa4aa67f35a3fac3a393493351415ec693a568d1 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 24 Jan 2014 15:14:02 +0000
Subject: [PATCH] * Fixed bug ID #24674

git-svn-id: trunk@26577 -
---
 packages/fcl-base/src/custapp.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-base/src/custapp.pp b/packages/fcl-base/src/custapp.pp
index 9919dc434b..2100e5bc23 100644
--- a/packages/fcl-base/src/custapp.pp
+++ b/packages/fcl-base/src/custapp.pp
@@ -333,7 +333,8 @@ begin
     else
       begin // short options have form '-o value'
       If (I<ParamCount) then
-        Result:=Params[I+1];
+        if (Copy(Params[I+1],1,1)<>'-') then
+          Result:=Params[I+1];
       end;
     end;
 end;