From 0990ec19670b38e8fa24b767e48b8bf29527aaa6 Mon Sep 17 00:00:00 2001
From: dfs <dfs>
Date: Sat, 28 Sep 1996 19:18:26 +0000
Subject: [PATCH] TkRemind sometimes didn't exit ???

---
 tkremind | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tkremind b/tkremind
index ea3de058..41a4be35 100755
--- a/tkremind
+++ b/tkremind
@@ -11,7 +11,7 @@
 #
 #--------------------------------------------------------------
 
-# $Id: tkremind,v 1.9 1996-09-28 19:14:37 dfs Exp $
+# $Id: tkremind,v 1.10 1996-09-28 19:18:26 dfs Exp $
 
 # the next line restarts using wish \
 exec wish "$0" "$@"
@@ -534,10 +534,11 @@ proc Quit {} {
     global ConfirmQuit
     if { !$ConfirmQuit } {
 	destroy .
-	return
+	exit
     }
     if { [tk_dialog .question "Confirm..." {Really quit?} question 0 No Yes] } {
 	destroy .
+	exit
     }
 }