| 
					
				 | 
			
			
				@@ -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) 
			 |