--- /usr/cmu/perl/RaQUtil.pm.old	Mon Feb 11 10:14:34 2002
+++ /usr/cmu/perl/RaQUtil.pm	Mon Feb 11 10:15:36 2002
@@ -160,6 +160,7 @@
 	close(SH);
 	close(TMP);
 	rename($pwTmp, $pwFile);
+	chmod 0400, $pwFile;
 }
 
 sub suspendAll