diff --git a/ide/text/fpdebug.pas b/ide/text/fpdebug.pas
index e2449c8cb2..1a93a765d1 100644
--- a/ide/text/fpdebug.pas
+++ b/ide/text/fpdebug.pas
@@ -420,7 +420,7 @@ constructor TDebugController.Init(const exefn:string);
   var f: string;
 begin
   inherited Init;
-  f := exefn;
+  f := GetShortName(exefn);
   NoSwitch:=False;
   LoadFile(f);
   SetArgs(GetRunParameters);
@@ -2723,7 +2723,10 @@ end.
 
 {
   $Log$
-  Revision 1.42  2000-01-10 17:49:40  pierre
+  Revision 1.43  2000-01-20 00:31:53  pierre
+   * uses ShortName of exe to start GDB
+
+  Revision 1.42  2000/01/10 17:49:40  pierre
    * Get RegisterView to Update correctly
    * Write in white changed regs (keeping a copy of previous values)