diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c
index ea0c8b17d15..fd0a69c069b 100644
--- a/Modules/_tkinter.c
+++ b/Modules/_tkinter.c
@@ -491,6 +491,10 @@ Tkapp_New(screenName, baseName, className, interactive)
 
 	v->interp = Tcl_CreateInterp();
 
+#if TKMAJORMINOR == 8001
+	TclpInitLibraryPath(baseName);
+#endif /* TKMAJORMINOR */
+
 #if defined(macintosh) && TKMAJORMINOR >= 8000
 	/* This seems to be needed since Tk 8.0 */
 	ClearMenuBar();