Index: nano.tcl
==================================================================
--- nano.tcl
+++ nano.tcl
@@ -4098,10 +4098,12 @@
 		return -code error "Unsupported wallet backup version ($version)"
 	}
 
 	set walletKeyIV [string range $wallet(salt) 0 15]
 	set seedIV      [string range $wallet(salt) 16 end]
+
+	# XXX:TODO: Check the password against "check"
 
 	# Decrypt seed
 	set aesKey    [::nano::internal::deriveKeyFromPassword $password $wallet(salt)]
 	set walletKey [::nano::internal::AES256-CTR $aesKey $walletKeyIV $wallet(key)]
 	set seed      [::nano::internal::AES256-CTR $walletKey $seedIV $wallet(seed)]