--- loncom/lonnet/perl/lonnet.pm	2006/10/16 19:39:57	1.793
+++ loncom/lonnet/perl/lonnet.pm	2006/10/17 05:56:46	1.794
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.793 2006/10/16 19:39:57 albertel Exp $
+# $Id: lonnet.pm,v 1.794 2006/10/17 05:56:46 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7355,7 +7355,9 @@ sub get_iphost {
 
 }
 
-$memcache=new Cache::Memcached({'servers'=>['127.0.0.1:11211']});
+$memcache=new Cache::Memcached({'servers'           => ['127.0.0.1:11211'],
+				'compress_threshold'=> 20_000,
+ 			        });
 
 $processmarker='_'.time.'_'.$perlvar{'lonHostID'};
 $dumpcount=0;