diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd
index 62b9a74..2b580ce 100644
--- a/pollen/private/ts.rktd
+++ b/pollen/private/ts.rktd
@@ -1 +1 @@
-1502063629
+1502063717
diff --git a/pollen/top.rkt b/pollen/top.rkt
index 1501288..1939d80 100644
--- a/pollen/top.rkt
+++ b/pollen/top.rkt
@@ -8,12 +8,12 @@
 ;; To suppress this behavior, use def/c to wrap any name.
 ;; If that name isn't already defined, you'll get the usual syntax error.
 
-(define-syntax-rule (top~ . id)
-  (make-default-tag-function 'id))
+(define-syntax-rule (top~ . ID)
+  (make-default-tag-function 'ID))
 
 (define-syntax (def/c stx)
   (syntax-case stx ()
-    [(_ x)
-     (if (identifier-binding #'x )
-         #'x
-         #'(#%top . x))]))
\ No newline at end of file
+    [(_ X)
+     (if (identifier-binding #'X )
+         #'X
+         #'(#%top . X))]))
\ No newline at end of file