--- doc/loncapafiles/updatequery.piml	2002/05/16 18:38:11	1.10
+++ doc/loncapafiles/updatequery.piml	2002/05/18 16:36:58	1.11
@@ -1,7 +1,7 @@
 <!-- updatequery.piml -->
 <!-- Scott Harrison -->
 
-<!-- $Id: updatequery.piml,v 1.10 2002/05/16 18:38:11 harris41 Exp $ -->
+<!-- $Id: updatequery.piml,v 1.11 2002/05/18 16:36:58 harris41 Exp $ -->
 
 <!--
 
@@ -275,7 +275,7 @@ my %perlvar;
     }
     unless ($perlvar{'lonReceipt'}) {
        my $lonReceipt='';
-       srand($$.time);
+       srand(time ^ $$ ^ unpack "%L*", `ps axww | gzip`);
        my @alnum=(0..9,a..z);
        foreach my $i (1..20) {
 	 $lonReceipt.=$alnum[int(rand(36))];