diff --git a/example/mkpasswd b/example/mkpasswd
index d532d10..b43ccf3 100755
--- a/example/mkpasswd
+++ b/example/mkpasswd
@@ -92,7 +92,12 @@ proc insert {pvar char} {
 }
 
 proc rand {m} {
-    expr {int($m*rand())}
+    set device /dev/urandom		;# /dev/random can block
+    set fileId [open $device r]
+    binary scan [read $fileId 4] i1 number
+    set clipped [expr $number % $m]
+    close $fileId
+    return $clipped
 }
 
 # choose left or right starting hand
@@ -188,6 +193,7 @@ if {[info exists user]} {
 	expect {
 		"assword*:" {
 			# some systems say "Password (again):"
+			sleep .5s
 			send "$password\r"
 			exp_continue
 		}