Index: test.tcl
==================================================================
--- test.tcl
+++ test.tcl
@@ -50,10 +50,14 @@
 
 			gets stdin password
 			pki::pkcs11::login $handle $token_slotid $password
 
 			set plain  [pki::decrypt -binary -priv $cipher $certinfo_list]
+		} else {
+			puts stderr "$::errorInfo"
+
+			exit 1
 		}
 	}
 
 	if {$plain != $orig} {
 		puts "Decryption error!  Expected \"$orig\", got \"$plain\""