diff --git a/collects/ffi/unsafe.rkt b/collects/ffi/unsafe.rkt
index 46c0351cb5..6b295ccacd 100644
--- a/collects/ffi/unsafe.rkt
+++ b/collects/ffi/unsafe.rkt
@@ -472,9 +472,8 @@
 ;; Also, see below for custom function types.
 
 (provide ->) ; to signal better errors when trying to use this with contracts
-(define-syntax ->
-  (syntax-id-rules ()
-    [_ (raise-syntax-error '-> "should be used only in a _fun context")]))
+(define-syntax (-> stx)
+  (raise-syntax-error '-> "should be used only in a _fun context" stx))
 
 (provide _fun)
 (define-for-syntax _fun-keywords