From 9649221fa59de15f542afa256cec836560b6c510 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 22 May 2008 03:51:01 -0500
Subject: [PATCH] Oops

---
 extra/io/sockets/secure/secure.factor            | 2 +-
 extra/io/unix/sockets/secure/secure-tests.factor | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/extra/io/sockets/secure/secure.factor b/extra/io/sockets/secure/secure.factor
index 0b4814c751..448a5cdda0 100644
--- a/extra/io/sockets/secure/secure.factor
+++ b/extra/io/sockets/secure/secure.factor
@@ -25,7 +25,7 @@ ephemeral-key-bits ;
     secure-config new
         SSLv23 >>method
         1024 >>ephemeral-key-bits
-        ! "resource:extra/openssl/cacert.pem" >>ca-file
+        "resource:extra/openssl/cacert.pem" >>ca-file
         t >>verify ;
 
 TUPLE: secure-context config handle disposed ;
diff --git a/extra/io/unix/sockets/secure/secure-tests.factor b/extra/io/unix/sockets/secure/secure-tests.factor
index 4f796583ef..cbda002354 100644
--- a/extra/io/unix/sockets/secure/secure-tests.factor
+++ b/extra/io/unix/sockets/secure/secure-tests.factor
@@ -12,7 +12,6 @@ concurrency.promises byte-arrays locals calendar io.timeouts ;
 : with-test-context
     <secure-config>
         "resource:extra/openssl/test/server.pem" >>key-file
-        "resource:extra/openssl/test/root.pem" >>ca-file
         "resource:extra/openssl/test/dh1024.pem" >>dh-file
         "password" >>password
     swap with-secure-context ;