try

pollen/private/ts.rktd

@@ -1 +1 @@
-1542295809
+1542679573

pollen/setup.rkt

@@ -133,3 +133,5 @@
 (define+provide current-poly-target (make-parameter (car (poly-targets))))
 
 (define-settable index-pages '("index.html"))
+
+(define-settable racket-style-top #f)

pollen/top.rkt

@@ -1,9 +1,14 @@
 #lang racket/base
-(require (for-syntax racket/base) pollen/tag)
+(require (for-syntax racket/base pollen/setup) pollen/tag)
 (provide def/c (rename-out (top~ #%top)))
 
-(define-syntax-rule (top~ . ID)
+(define-syntax (top~ stx)
-  (#%app make-default-tag-function 'ID))
+  (syntax-case stx ()
+    [(_ . ID)
+     (setup:racket-style-top)
+     #'(#%top . ID)]
+    [(_ . ID)
+     #'(#%app make-default-tag-function 'ID)]))
 
 (define-syntax (def/c stx)
   (syntax-case stx ()