From 1b7b7e8260069d00ca8c7df41c7c48b7ccc88de0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Sat, 19 Nov 2016 18:04:17 +0100
Subject: [PATCH] io.sockets.secure.openssl: second |dispose seem to be
 redundant

---
 basis/io/sockets/secure/openssl/openssl.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/io/sockets/secure/openssl/openssl.factor b/basis/io/sockets/secure/openssl/openssl.factor
index 21d026bd14..86aaac1671 100644
--- a/basis/io/sockets/secure/openssl/openssl.factor
+++ b/basis/io/sockets/secure/openssl/openssl.factor
@@ -204,7 +204,7 @@ SYMBOL: default-secure-context
 : <ssl-handle> ( fd -- ssl )
     [
         ssl-handle new-disposable |dispose
-        current-secure-context handle>> SSL_new |dispose
+        current-secure-context handle>> SSL_new
         dup ssl-error >>handle
         swap >>file
         set-secure-cipher-list-only