X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/fdf9a42df2892bae989ec2d47d5c22817dec7271..25c93232ead88499dc1d1b5bf145e8fbfdb5bbe8:/src/main.sml

diff --git a/src/main.sml b/src/main.sml
index a8cf180..798ede2 100644
--- a/src/main.sml
+++ b/src/main.sml
@@ -172,8 +172,9 @@ val self =
 
 fun context x =
     (OpenSSL.context false x)
-    handle e as OpenSSL.OpenSSL _ =>
+    handle e as OpenSSL.OpenSSL s =>
 	   (print "Couldn't find your certificate.\nYou probably haven't been given any Domtool privileges.\n";
+	    print ("Additional information: " ^ s ^ "\n");
 	    raise e)
 
 fun setupUser () =