diff --git a/src/kernel/qapplication.cpp b/src/kernel/qapplication.cpp
index 76b26592..d67df12b 100644
--- a/src/kernel/qapplication.cpp
+++ b/src/kernel/qapplication.cpp
@@ -2931,7 +2931,14 @@ int TQApplication::exec()
 */
 void TQApplication::exit( int retcode )
 {
-    tqApp->eventLoop()->exit( retcode );
+    TQThread* thread = tqApp->guiThread();
+    if (thread) {
+        if (thread->d) {
+            if (thread->d->eventLoop) {
+                thread->d->eventLoop->exit( retcode );
+            }
+        }
+    }
 }
 
 /*!