@@ -12,10 +12,13 @@
 #include <stdio.h>
 #include <fuse.h>
 #include <pwd.h>
 #include <tcl.h>
 
+/* From sha1.c */
+int Sha1_Init(Tcl_Interp *interp);
+
 #ifndef APPFS_CACHEDIR
 #define APPFS_CACHEDIR "/var/cache/appfs"
 #endif
 
 #ifdef DEBUG
@@ -94,10 +97,21 @@
 	}
 
 	tcl_ret = Tcl_Init(interp);
 	if (tcl_ret != TCL_OK) {
 		fprintf(stderr, "Unable to initialize Tcl.  Aborting.\n");
+		fprintf(stderr, "Tcl Error is: %s\n", Tcl_GetStringResult(interp));
+
+		Tcl_DeleteInterp(interp);
+
+		return(NULL);
+	}
+
+	tcl_ret = Tcl_Eval(interp, "package ifneeded sha1 1.0 [list load {} sha1]");
+	if (tcl_ret != TCL_OK) {
+		fprintf(stderr, "Unable to initialize Tcl SHA1.  Aborting.\n");
+		fprintf(stderr, "Tcl Error is: %s\n", Tcl_GetStringResult(interp));
 
 		Tcl_DeleteInterp(interp);
 
 		return(NULL);
 	}
@@ -1154,10 +1168,12 @@
 
 	globalThread.cachedir = cachedir;
 	globalThread.boottime = time(NULL);
 	globalThread.platform = "linux-x86_64";
 	globalThread.options.writable = 1;
+
+	Tcl_StaticPackage(NULL, "sha1", Sha1_Init, NULL);
 
 	pthread_ret = pthread_key_create(&interpKey, NULL);
 	if (pthread_ret != 0) {
 		fprintf(stderr, "Unable to create TSD key for Tcl.  Aborting.\n");