Index: stml.scm
==================================================================
--- stml.scm
+++ stml.scm
@@ -77,10 +77,11 @@
 (define (s:p      . args) (s:common-tag "P"      args))
 (define (s:strong . args) (s:common-tag "STRONG" args))
 (define (s:table  . args) (s:common-tag "TABLE"  args))
 (define (s:tbody  . args) (s:common-tag "TBODY"  args))
 (define (s:thead  . args) (s:common-tag "THEAD"  args))
+(define (s:th     . args) (s:common-tag "TH"     args))
 (define (s:td     . args) (s:common-tag "TD"     args))
 (define (s:title  . args) (s:common-tag "TITLE"  args))
 (define (s:tr     . args) (s:common-tag "TR"     args))
 (define (s:small  . args) (s:common-tag "SMALL"  args))
 (define (s:quote  . args) (s:common-tag "QUOTE"  args))