| 
					
				 | 
			
			
				@@ -43,8 +43,9 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-babel-expand-body:org (body params) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (dolist (var (mapcar #'cdr (org-babel-get-header params :var))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (setq body (replace-regexp-in-string 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		(regexp-quote (format "$%s" (car var)))  (cdr var) body 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		nil 'literal))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		(regexp-quote (format "$%s" (car var))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		(format "%s" (cdr var)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		body nil 'literal))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   body) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-babel-execute:org (body params) 
			 |