From d41e1c6f39df635ed40ecc506891f8765f767cb6 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 4 Jun 2014 14:16:51 +0000
Subject: [PATCH] Range Fix, thanks (Dimitrios Chr. Loannidis)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3135 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/server_service_intf.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/wst/trunk/server_service_intf.pas b/wst/trunk/server_service_intf.pas
index 90b2c9fd5..2c7a0f6b4 100644
--- a/wst/trunk/server_service_intf.pas
+++ b/wst/trunk/server_service_intf.pas
@@ -485,7 +485,7 @@ begin
   end;
   //Extract the base ContentType : type "/" subtype *( ";" parameter )
   j := Length(s);
-  for i := 0 to Pred(Length(s)) do begin
+  for i := 1 to Length(s) do begin
     if ( s[i] = ';' ) then begin
       j := ( i - 1 );
       Break;