diff --git a/compiler/ag386bin.pas b/compiler/ag386bin.pas
index 1b755cbfb6..1e7f98f412 100644
--- a/compiler/ag386bin.pas
+++ b/compiler/ag386bin.pas
@@ -343,9 +343,11 @@ unit ag386bin;
     procedure ti386binasmlist.EndFileLineInfo;
       var
         hp : pasmsymbol;
+        store_sec : tsection;
       begin
         if not (cs_debuginfo in aktmoduleswitches) then
           exit;
+        store_sec:=objectalloc^.currsec;
         objectalloc^.setsection(sec_code);
         hp:=newasmsymbol('Letext');
         if currpass=1 then
@@ -357,6 +359,7 @@ unit ag386bin;
           objectoutput^.writesymbol(hp);
         EmitStabs('"",'+tostr(n_sourcefile)+
              ',0,0,Letext');
+        objectalloc^.setsection(store_sec);
       end;
 {$endif GDB}
 
@@ -963,7 +966,10 @@ unit ag386bin;
 end.
 {
   $Log$
-  Revision 1.38  2000-02-18 21:54:07  pierre
+  Revision 1.39  2000-03-09 10:07:18  pierre
+   * fix a problem with smartlink and stabs
+
+  Revision 1.38  2000/02/18 21:54:07  pierre
    * avoid LeText if no stabs info
 
   Revision 1.37  2000/02/18 12:31:07  pierre