diff --git a/rtl/inc/compproc.inc b/rtl/inc/compproc.inc
index a2b09b03de..40943e9cc0 100644
--- a/rtl/inc/compproc.inc
+++ b/rtl/inc/compproc.inc
@@ -643,8 +643,10 @@ function fpc_PopObjectStack : TObject; compilerproc;
 function fpc_PopSecondObjectStack : TObject; compilerproc;
 Procedure fpc_ReRaise; compilerproc;
 Function fpc_Catches(Objtype : TClass) : TObject; compilerproc;
+{$ifdef VER2_6}
 Procedure fpc_DestroyException(o : TObject); compilerproc;
 function fpc_GetExceptionAddr : CodePointer; compilerproc;
+{$endif VER2_6}
 function fpc_safecallhandler(obj: TObject): HResult; compilerproc;
 function fpc_safecallcheck(res : hresult) : hresult; compilerproc; {$ifdef CPU86} register; {$endif}
 procedure fpc_doneexception; compilerproc;
diff --git a/rtl/inc/except.inc b/rtl/inc/except.inc
index b33e3741ae..baf908863d 100644
--- a/rtl/inc/except.inc
+++ b/rtl/inc/except.inc
@@ -340,6 +340,7 @@ begin
     end;
 end;
 
+{$ifdef VER2_6}
 Procedure fpc_DestroyException(o : TObject);[Public, Alias : 'FPC_DESTROYEXCEPTION']; compilerproc;
 begin
   { with free we're on the really safe side }
@@ -357,6 +358,7 @@ begin
   else
     fpc_GetExceptionAddr:=_ExceptObjectStack^.Addr;
 end;
+{$endif VER2_6}
 
 Procedure SysInitExceptions;
 {