diff --git a/compiler/ag386bin.pas b/compiler/ag386bin.pas
index b6c373f5c5..6003fbd23c 100644
--- a/compiler/ag386bin.pas
+++ b/compiler/ag386bin.pas
@@ -107,6 +107,7 @@ unit ag386bin;
          begin
            hp:=nil;
            s:=StrPas(P);
+           i:=-2; {needed below (PM) }
          end;
       { When in pass 1 then only alloc and leave }
         if currpass=1 then
@@ -125,6 +126,7 @@ unit ag386bin;
         Val(Copy(s,1,j-1),nidx,code);
         if code<>0 then
          internalerror(33002);
+        i:=i+2+j;
         Delete(s,1,j);
         j:=pos(',',s);
         if (j=0) then
@@ -132,6 +134,7 @@ unit ag386bin;
         Val(Copy(s,1,j-1),nother,code);
         if code<>0 then
          internalerror(33004);
+        i:=i+j;
         Delete(s,1,j);
         j:=pos(',',s);
         if j=0 then
@@ -142,16 +145,17 @@ unit ag386bin;
         Val(Copy(s,1,j-1),line,code);
         if code<>0 then
           internalerror(33005);
-        if ofs=0 then
-          Delete(s,1,j);
         if ofs=0 then
           begin
+            Delete(s,1,j);
+            i:=i+j;
             Val(s,ofs,code);
             if code=0 then
               reloc:=false
             else
               begin
                 ofs:=0;
+                s:=strpas(@p[i]);
                 { handle asmsymbol or
                     asmsymbol - asmsymbol }
                 j:=pos(' ',s);
@@ -171,9 +175,16 @@ unit ag386bin;
                   end;
                 if j<256 then
                   begin
-                    delete(s,1,j);
-                    while (s<>'') and (s[1]=' ') do
-                      delete(s,1,1);
+                    i:=i+j;
+                    s:=strpas(@p[i]);
+                    if (s<>'') and (s[1]=' ') then
+                      begin
+                         j:=0;
+                         while (s[j+1]=' ') do
+                           inc(j);
+                         i:=i+j;
+                         s:=strpas(@p[i]);
+                      end;
                     ps:=getasmsymbol(s);
                     if not assigned(ps) then
                       internalerror(33007)
@@ -801,7 +812,10 @@ unit ag386bin;
 end.
 {
   $Log$
-  Revision 1.12  1999-05-27 19:43:59  peter
+  Revision 1.13  1999-06-01 10:24:09  pierre
+   * ts010021.pp problem solved for ag386bin !
+
+  Revision 1.12  1999/05/27 19:43:59  peter
     * removed oldasm
     * plabel -> pasmlabel
     * -a switches to source writing automaticly