diff --git a/VERSION b/VERSION
index 18544c7d..3fdb0d21 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-8.3.446
+8.3.447
diff --git a/utils/main.c b/utils/main.c
index 53ce7ab4..a896f415 100644
--- a/utils/main.c
+++ b/utils/main.c
@@ -791,10 +791,16 @@ mainInitAfterArgs()
     return 0;
 }
 
+/*
+ * Tcl exit procedure hook for the Tcl_Exit() subroutine
+ *
+ * clientData is an exit value if "exit" was specified from a script.
+ */
+
 void tcl_exit_hook(ClientData clientData)
 {
     TxResetTerminal();
-    exit(0);
+    exit((int)clientData);
 }
 
 /*