@@ -8,8 +8,9 @@
 
 	x = Tcl_CreateInterp();
 
 	Tcl_Main(argc, argv, TclKit_AppInit);
 
-	return(0);
+	/* If Tcl_Main() returns, something went wrong */
+	return(1);
 }
 #endif