Index: nano.c
==================================================================
--- nano.c
+++ nano.c
@@ -337,11 +337,11 @@
 	/* NOTREACH */
 	clientData = clientData;
 }
 
 int Nano_Init(Tcl_Interp *interp) {
-	int te_ret;
+	int te_ret, tpp_ret;
 	const char nanoInitScript[] = {
 #include "nano.tcl.h"
 		0x00
 	};
 #ifdef USE_TCL_STUBS
@@ -366,8 +366,13 @@
 		te_ret = Tcl_Eval(interp, nanoInitScript);
 		if (te_ret != TCL_OK) {
 			return(te_ret);
 		}
 	}
+
+	tpp_ret = Tcl_PkgProvide(interp, "nano", PACKAGE_VERSION);
+	if (tpp_ret != TCL_OK) {
+		return(tpp_ret);
+	}
 
 	return(TCL_OK);
 }

Index: nano.tcl
==================================================================
--- nano.tcl
+++ nano.tcl
@@ -728,7 +728,5 @@
 		lappend outBlocks [receive $account $blockHash $signKey]
 	}
 
 	return $outBlocks
 }
-
-package provide nano 0