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
     }
 }