|  | @@ -764,7 +764,7 @@ these arguments are not evaluated in the current source-code block but are passe
 | 
	
		
			
				|  |  |                                             (cdr (assoc lang org-src-lang-modes))))
 | 
	
		
			
				|  |  |                                       lang) "-mode")))
 | 
	
		
			
				|  |  |          (setq index (point))
 | 
	
		
			
				|  |  | -        (while (and (re-search-forward "<<\\(.+\\)>>" nil t))
 | 
	
		
			
				|  |  | +        (while (and (re-search-forward "<<\\(.+?\\)>>" nil t))
 | 
	
		
			
				|  |  |            (save-match-data (setf source-name (match-string 1)))
 | 
	
		
			
				|  |  |            (save-match-data (setq evaluate (string-match "\(.*\)" source-name)))
 | 
	
		
			
				|  |  |            ;; add interval to new-body (removing noweb reference)
 |