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;