From c414c8acb1ac29c247e3453e094c7a3e6b75cfb3 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 13 May 2008 09:09:17 +0000
Subject: [PATCH] LCL: fixed typo from Luca Olivetti (bug #11293)

git-svn-id: trunk@15115 -
---
 lcl/include/application.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index d72006daf9..aff931beaf 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -949,7 +949,7 @@ begin
   // handle the exception
   if ExceptObject is Exception then begin
     if not (ExceptObject is EAbort) then begin
-      i:=FApplicationHandlers[ahtUserInput].Count;
+      i:=FApplicationHandlers[ahtException].Count;
       if Assigned(OnException) or (i>0) then begin
         if Assigned(OnException) then
           OnException(Sender, Exception(ExceptObject));