--- loncom/lonnet/perl/lonnet.pm	2020/01/21 14:01:54	1.1172.2.120
+++ loncom/lonnet/perl/lonnet.pm	2020/01/21 19:03:08	1.1172.2.121
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.120 2020/01/21 14:01:54 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.121 2020/01/21 19:03:08 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -13251,9 +13251,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 '') {