diff --git a/htdocs/core/class/translate.class.php b/htdocs/core/class/translate.class.php
index 100af13af5d..5d06586fb16 100644
--- a/htdocs/core/class/translate.class.php
+++ b/htdocs/core/class/translate.class.php
@@ -234,7 +234,8 @@ class Translate
 				if ($usecachekey)
 				{
 			        //dol_syslog('Translate::Load we will cache result into usecachekey '.$usecachekey);
-
+                    //global $aaa; $aaa+=1;
+                    //print $aaa." ".$usecachekey."\n";
 				    require_once DOL_DOCUMENT_ROOT .'/core/lib/memory.lib.php';
 					$tmparray=dol_getcache($usecachekey);
 					if (is_array($tmparray) && count($tmparray))
diff --git a/htdocs/core/lib/memory.lib.php b/htdocs/core/lib/memory.lib.php
index b68016c3a46..7df56b6283c 100644
--- a/htdocs/core/lib/memory.lib.php
+++ b/htdocs/core/lib/memory.lib.php
@@ -47,10 +47,16 @@ function dol_setcache($memoryid,$data)
 	// Using a memcached server
 	if (! empty($conf->memcached->enabled) && class_exists('Memcached'))
 	{
-		$memoryid=session_name().'_'.$memoryid;
-		$m=new Memcached();
-		$tmparray=explode(':',$conf->global->MEMCACHED_SERVER);
-		$result=$m->addServer($tmparray[0], $tmparray[1]?$tmparray[1]:11211);
+	    global $m;
+		if (empty($m) || ! is_object($m))
+    	{
+       	    $m=new Memcached();
+       		$tmparray=explode(':',$conf->global->MEMCACHED_SERVER);
+       		$result=$m->addServer($tmparray[0], $tmparray[1]?$tmparray[1]:11211);
+       		if (! $result) return -1;
+       	}
+       	
+	    $memoryid=session_name().'_'.$memoryid;
 		//$m->setOption(Memcached::OPT_COMPRESSION, false);
 		//print "Add memoryid=".$memoryid;
 		$m->add($memoryid,$data);    // This fails if key already exists
@@ -66,10 +72,16 @@ function dol_setcache($memoryid,$data)
 	}
 	else if (! empty($conf->memcached->enabled) && class_exists('Memcache'))
 	{
-		$memoryid=session_name().'_'.$memoryid;
-		$m=new Memcache();
-		$tmparray=explode(':',$conf->global->MEMCACHED_SERVER);
-		$result=$m->addServer($tmparray[0], $tmparray[1]?$tmparray[1]:11211);
+		global $m;
+		if (empty($m) || ! is_object($m))
+    	{
+       	    $m=new Memcache();
+       		$tmparray=explode(':',$conf->global->MEMCACHED_SERVER);
+       		$result=$m->addServer($tmparray[0], $tmparray[1]?$tmparray[1]:11211);
+       		if (! $result) return -1;
+       	}
+	    
+       	$memoryid=session_name().'_'.$memoryid;
 		//$m->setOption(Memcached::OPT_COMPRESSION, false);
 		$result=$m->add($memoryid,$data);    // This fails if key already exists
 		if ($result)
@@ -103,10 +115,16 @@ function dol_getcache($memoryid)
 	// Using a memcached server
 	if (! empty($conf->memcached->enabled) && class_exists('Memcached'))
 	{
+		global $m;
+		if (empty($m) || ! is_object($m))
+    	{
+            $m=new Memcached();
+       		$tmparray=explode(':',$conf->global->MEMCACHED_SERVER);
+       		$result=$m->addServer($tmparray[0], $tmparray[1]?$tmparray[1]:11211);
+       		if (! $result) return -1;
+       	}
+	    
 		$memoryid=session_name().'_'.$memoryid;
-		$m=new Memcached();
-		$tmparray=explode(':',$conf->global->MEMCACHED_SERVER);
-		$result=$m->addServer($tmparray[0], $tmparray[1]?$tmparray[1]:11211);
 		//$m->setOption(Memcached::OPT_COMPRESSION, false);
 		//print "Get memoryid=".$memoryid;
 		$data=$m->get($memoryid);
@@ -124,10 +142,16 @@ function dol_getcache($memoryid)
 	}
 	else if (! empty($conf->memcached->enabled) && class_exists('Memcache'))
 	{
-		$memoryid=session_name().'_'.$memoryid;
-		$m=new Memcache();
-		$tmparray=explode(':',$conf->global->MEMCACHED_SERVER);
-		$result=$m->addServer($tmparray[0], $tmparray[1]?$tmparray[1]:11211);
+		global $m;
+		if (empty($m) || ! is_object($m))
+    	{
+       	    $m=new Memcache();
+       		$tmparray=explode(':',$conf->global->MEMCACHED_SERVER);
+       		$result=$m->addServer($tmparray[0], $tmparray[1]?$tmparray[1]:11211);
+       		if (! $result) return -1;
+       	}
+	    
+       	$memoryid=session_name().'_'.$memoryid;
 		//$m->setOption(Memcached::OPT_COMPRESSION, false);
 		$data=$m->get($memoryid);
 		//print "memoryid=".$memoryid." - rescode=".$rescode." - data=".count($data)."\n<br>";