--- tcltk-8.0.2/expect-5.26/example/mkpasswd.jbj	Mon Jun 29 09:51:28 1998
+++ tcltk-8.0.2/expect-5.26/example/mkpasswd	Mon Jun 29 09:53:25 1998
@@ -183,6 +183,7 @@
 	expect {
 		"assword*:" {
 			# some systems say "Password (again):"
+			sleep .5s
 			send "$password\r"
 			exp_continue
 		}