| 
					
				 | 
			
			
				@@ -61,7 +61,7 @@ evaluating BODY." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let ((temp-result (make-symbol "temp-result")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(temp-file (make-symbol "temp-file"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     `(let (,temp-result ,temp-file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-       (find-file ,file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+       (find-file-noselect ,file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        (setf ,temp-file (current-buffer)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        (setf ,temp-result (progn ,@body)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        (kill-buffer ,temp-file) 
			 |