| 
					
				 | 
			
			
				@@ -373,7 +373,7 @@ block." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			  (string= "yes" (cdr (assoc :cache params))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (result-params (cdr (assoc :result-params params))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (new-hash (when cache? (org-babel-sha1-hash info))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	     (old-hash (when cache? (org-babel-result-hash info))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	     (old-hash (when cache? (org-babel-current-result-hash))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (body (setf (nth 1 info) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			 (let ((noweb (cdr (assoc :noweb params)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			   (if (and noweb 
			 |