| 
					
				 | 
			
			
				@@ -2846,6 +2846,7 @@ a number of clock tables." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				             (`semimonth "Semimonthly report starting on: ") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				             (`month "Monthly report starting on: ") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				             (`year "Annual report starting on: ") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+            (`quarter "Quarterly report starting on: ") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				             (_ (user-error "Unknown `:step' specification: %S" step)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (week-start (or (plist-get params :wstart) 1)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (month-start (or (plist-get params :mstart) 1)) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -2898,6 +2899,7 @@ a number of clock tables." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                                                (if (< d 16) 16 1) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                                                (if (< d 16) m (1+ m)) y)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                   (`month (org-encode-time 0 0 0 month-start (1+ m) y)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                  (`quarter (org-encode-time 0 0 0 month-start (+ 3 m) y)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                   (`year (org-encode-time 0 0 org-extend-today-until 1 1 (1+ y)))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				              (table-begin (line-beginning-position 0)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (step-time 
			 |