--- loncom/lonssl.pm	2014/11/06 02:22:11	1.11
+++ loncom/lonssl.pm	2015/10/15 13:40:27	1.12
@@ -1,5 +1,5 @@
 #
-# $Id: lonssl.pm,v 1.11 2014/11/06 02:22:11 raeburn Exp $
+# $Id: lonssl.pm,v 1.12 2015/10/15 13:40:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -143,7 +143,7 @@ sub PromoteClientSocket {
 
     
     my $client = IO::Socket::SSL->new_from_fd($dupfno,
-					      SSL_user_cert => 1,
+					      SSL_use_cert => 1,
 					      SSL_key_file  => $KeyFile,
 					      SSL_cert_file => $MyCert,
 					      SSL_ca_file   => $CACert);