--- loncom/lonsql	2001/04/17 15:47:19	1.35
+++ loncom/lonsql	2001/08/30 13:57:04	1.36
@@ -3,6 +3,8 @@
 # 7/25 Gerd Kortemeyer
 # many different dates Scott Harrison
 # 03/22/2001 Scott Harrison
+# 8/30 Gerd Kortemeyer
+
 use IO::Socket;
 use Symbol;
 use POSIX;
@@ -79,6 +81,8 @@ while ($configline=<CONFIG>) {
 }
 close(CONFIG);
 
+$PREFORK=int($PREFORK/4);
+
 $unixsock = "mysqlsock";
 my $localfile="$perlvar{'lonSockDir'}/$unixsock";
 my $server;