--- loncom/lonnet/perl/lonnet.pm	2020/01/21 15:36:29	1.1172.2.118.2.3
+++ loncom/lonnet/perl/lonnet.pm	2020/01/21 19:04:45	1.1172.2.118.2.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.118.2.3 2020/01/21 15:36:29 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.118.2.4 2020/01/21 19:04:45 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -13330,9 +13330,10 @@ sub uses_sts {
                 return $sts_on;
             }
         }
+        my $ua=new LWP::UserAgent;
         my $url = $protocol{$lonhost}.'://'.$hostname.'/index.html';
         my $request=new HTTP::Request('HEAD',$url);
-        my $response=&LONCAPA::LWPReq::makerequest($lonhost,$request,'',\%perlvar,'','','',1);
+        my $response=$ua->request($request);
         if ($response->is_success) {
             my $has_sts = $response->header('Strict-Transport-Security');
             if ($has_sts eq '') {