diff --git a/compiler/browcol.pas b/compiler/browcol.pas
index 890b1d6db5..baf6e932f0 100644
--- a/compiler/browcol.pas
+++ b/compiler/browcol.pas
@@ -397,7 +397,8 @@ begin
       RightS:=Upper(RightP^.GetName);
       if copy(MidS,1,length(UpS))=UpS then
         begin
-          Idx:=Mid; FoundS:=copy(MidS,1,length(S));
+          Idx:=Mid;
+          FoundS:=MidS;
         end;
 {      else}
         if UpS<MidS then
@@ -487,7 +488,8 @@ begin
       RightS:=Upper(RightP^.GetName);
       if copy(MidS,1,length(UpS))=UpS then
         begin
-          Idx:=Mid; FoundS:=copy(MidS,1,length(S));
+          Idx:=Mid;
+          FoundS:=MidS;
         end;
 {      else}
         if UpS<MidS then
@@ -1697,7 +1699,11 @@ begin
 end.
 {
   $Log$
-  Revision 1.26  1999-11-06 14:34:17  peter
+  Revision 1.27  1999-11-10 00:42:42  pierre
+    * LookUp function now returns the complete name in browcol
+      and fpsymbol only yakes a part of LoopUpStr
+
+  Revision 1.26  1999/11/06 14:34:17  peter
     * truncated log to 20 revs
 
   Revision 1.25  1999/10/26 12:30:40  peter
diff --git a/ide/text/fpsymbol.pas b/ide/text/fpsymbol.pas
index bfda195f6a..df90da06a0 100644
--- a/ide/text/fpsymbol.pas
+++ b/ide/text/fpsymbol.pas
@@ -523,10 +523,11 @@ begin
 end;
 
 procedure TSymbolScopeView.LookUp(S: string);
-var Idx: Sw_integer;
+var Idx,Slength: Sw_integer;
     NS: string;
 begin
   NS:=LookUpStr;
+  Slength:=Length(S);
   if (Symbols=nil) or (S='') then NS:='' else
     begin
       S:=Symbols^.LookUp(S,Idx);
@@ -536,7 +537,7 @@ begin
           FocusItem(Idx);
         end;
     end;
-  LookUpStr:=NS;
+  LookUpStr:=Copy(NS,1,Slength);
   SetState(sfCursorVis,LookUpStr<>'');
   DrawView;
 end;
@@ -1160,7 +1161,11 @@ end;
 END.
 {
   $Log$
-  Revision 1.19  1999-09-16 14:34:59  pierre
+  Revision 1.20  1999-11-10 00:42:42  pierre
+    * LookUp function now returns the complete name in browcol
+      and fpsymbol only yakes a part of LoopUpStr
+
+  Revision 1.19  1999/09/16 14:34:59  pierre
     + TBreakpoint and TWatch registering
     + WatchesCollection and BreakpointsCollection stored in desk file
     * Syntax highlighting was broken