diff --git a/stx-utils.rkt b/stx-utils.rkt
new file mode 100644
index 0000000..489c12b
--- /dev/null
+++ b/stx-utils.rkt
@@ -0,0 +1,4 @@
+#lang racket/base
+(require syntax/stx)
+(provide (all-defined-out))
+(define (stx-cadr stx) (car (stx-cdr stx)))
\ No newline at end of file