--- loncom/lti/ltiutils.pm	2018/04/17 14:03:01	1.8
+++ loncom/lti/ltiutils.pm	2018/05/15 04:33:17	1.9
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utility functions for managing LON-CAPA LTI interactions 
 #
-# $Id: ltiutils.pm,v 1.8 2018/04/17 14:03:01 raeburn Exp $
+# $Id: ltiutils.pm,v 1.9 2018/05/15 04:33:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -324,6 +324,7 @@ sub sign_params {
     if ($sigmethod eq '') {
         $sigmethod = 'HMAC-SHA1';
     }
+    srand( time() ^ ($$ + ($$ << 15))  ); # Seed rand.
     my $nonce = Digest::SHA::sha1_hex(sprintf("%06x%06x",rand(0xfffff0),rand(0xfffff0)));
     my $request = Net::OAuth->request("request token")->new(
             consumer_key => $key,