diff --git a/ftdetect/racket.vim b/ftdetect/racket.vim
index 4a9ff08..6ef1c78 100644
--- a/ftdetect/racket.vim
+++ b/ftdetect/racket.vim
@@ -1,4 +1,4 @@
-let g:racket_hash_lang_regexp = '^#lang\s\+\([^][)(}{[:space:]]\+\)'
+let g:racket_hash_lang_regexp = '^#lang\s\+\%\(\<at-exp\>\s\+\)\?\([^][)(}{[:space:]]\+\)'
 let g:racket_hash_lang_dict = get(g:, 'racket_hash_lang_dict',
       \ {
       \   'racket/base': 'racket',
diff --git a/test/at-exp.rkt b/test/at-exp.rkt
new file mode 100644
index 0000000..9f98a78
--- /dev/null
+++ b/test/at-exp.rkt
@@ -0,0 +1,9 @@
+#lang at-exp racket
+
+(define (bar)
+  "BAR")
+
+(define (foo)
+  (displayln @~a{Foo is a @(bar)}))
+
+(foo)