| 
					
				 | 
			
			
				@@ -1792,11 +1792,10 @@ The template may still contain \"%?\" for cursor positioning." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		     (let* ((upcase? (equal (upcase key) key)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			    (org-end-time-was-given nil) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			    (time (org-read-date upcase? t nil prompt))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		       (let ((org-time-was-given upcase?)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			 (org-insert-time-stamp 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			  time org-time-was-given 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			  (member key '("u" "U")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			  nil nil (list org-end-time-was-given))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		       (org-insert-time-stamp 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			time (or org-time-was-given upcase?) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			(member key '("u" "U")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			nil nil (list org-end-time-was-given)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		    (`nil 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		     (push (org-completing-read 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			    (concat (or prompt "Enter string") 
			 |