| 
					
				 | 
			
			
				@@ -2179,7 +2179,7 @@ block but are passed literally to the \"example-block\"." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				         (insert body) (goto-char (point-min)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				         (setq index (point)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				         (while (and (re-search-forward (org-babel-noweb-wrap 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-					"\\([^ \t].+?[^ \t]\\|[^ \t]\\)") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+					"\\([^ \t\n].+?[^ \t]\\|[^ \t\n]\\)") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 				       nil t)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				           (save-match-data (setf source-name (match-string 1))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				           (save-match-data (setq evaluate (string-match "\(.*\)" source-name))) 
			 |