diff --git a/src/racket/include/mzwin.def b/src/racket/include/mzwin.def
index a7a3663be7..ba46c13606 100644
--- a/src/racket/include/mzwin.def
+++ b/src/racket/include/mzwin.def
@@ -573,3 +573,4 @@ EXPORTS
  scheme_signal_received_at
  scheme_get_signal_handle
  scheme_char_strlen
+ scheme_stx_extract_marks
diff --git a/src/racket/include/mzwin3m.def b/src/racket/include/mzwin3m.def
index fe11bcdcbd..03ccda980f 100644
--- a/src/racket/include/mzwin3m.def
+++ b/src/racket/include/mzwin3m.def
@@ -589,3 +589,4 @@ EXPORTS
  scheme_signal_received_at
  scheme_get_signal_handle
  scheme_char_strlen
+ scheme_stx_extract_marks
diff --git a/src/racket/include/racket.exp b/src/racket/include/racket.exp
index 29e7dadae2..e64193189a 100644
--- a/src/racket/include/racket.exp
+++ b/src/racket/include/racket.exp
@@ -590,3 +590,4 @@ scheme_signal_received
 scheme_signal_received_at
 scheme_get_signal_handle
 scheme_char_strlen
+scheme_stx_extract_marks
diff --git a/src/racket/include/racket3m.exp b/src/racket/include/racket3m.exp
index 4a9927e77e..865f996023 100644
--- a/src/racket/include/racket3m.exp
+++ b/src/racket/include/racket3m.exp
@@ -597,3 +597,4 @@ scheme_signal_received
 scheme_signal_received_at
 scheme_get_signal_handle
 scheme_char_strlen
+scheme_stx_extract_marks
diff --git a/src/racket/src/schemef.h b/src/racket/src/schemef.h
index 219b7701b3..3b9dc5a74e 100644
--- a/src/racket/src/schemef.h
+++ b/src/racket/src/schemef.h
@@ -1112,3 +1112,5 @@ MZ_EXTERN void scheme_signal_received_at(void *);
 MZ_EXTERN void *scheme_get_signal_handle();
 
 MZ_EXTERN int scheme_char_strlen(const mzchar *s);
+
+MZ_EXTERN Scheme_Object *scheme_stx_extract_marks(Scheme_Object *stx);
diff --git a/src/racket/src/schemex.h b/src/racket/src/schemex.h
index 158c39bd66..0652a974c7 100644
--- a/src/racket/src/schemex.h
+++ b/src/racket/src/schemex.h
@@ -919,6 +919,7 @@ void (*scheme_signal_received)(void);
 void (*scheme_signal_received_at)(void *);
 void *(*scheme_get_signal_handle)();
 int (*scheme_char_strlen)(const mzchar *s);
+Scheme_Object *(*scheme_stx_extract_marks)(Scheme_Object *stx);
 #ifndef SCHEME_EX_INLINE
 } Scheme_Extension_Table;
 #endif
diff --git a/src/racket/src/schemex.inc b/src/racket/src/schemex.inc
index db10f8760f..5dfce7c735 100644
--- a/src/racket/src/schemex.inc
+++ b/src/racket/src/schemex.inc
@@ -645,3 +645,4 @@
   scheme_extension_table->scheme_signal_received_at = scheme_signal_received_at;
   scheme_extension_table->scheme_get_signal_handle = scheme_get_signal_handle;
   scheme_extension_table->scheme_char_strlen = scheme_char_strlen;
+  scheme_extension_table->scheme_stx_extract_marks = scheme_stx_extract_marks;
diff --git a/src/racket/src/schemexm.h b/src/racket/src/schemexm.h
index 486066040b..b40377ee0a 100644
--- a/src/racket/src/schemexm.h
+++ b/src/racket/src/schemexm.h
@@ -645,6 +645,7 @@
 #define scheme_signal_received_at (scheme_extension_table->scheme_signal_received_at)
 #define scheme_get_signal_handle (scheme_extension_table->scheme_get_signal_handle)
 #define scheme_char_strlen (scheme_extension_table->scheme_char_strlen)
+#define scheme_stx_extract_marks (scheme_extension_table->scheme_stx_extract_marks)
 #ifdef MZ_PRECISE_GC
 #pragma GC_VARIABLE_STACK_THOUGH_TABLE
 #endif
diff --git a/src/racket/src/schpriv.h b/src/racket/src/schpriv.h
index 2124903b15..7cac749022 100644
--- a/src/racket/src/schpriv.h
+++ b/src/racket/src/schpriv.h
@@ -967,8 +967,6 @@ Scheme_Object *scheme_stx_phase_shift_as_rename(long shift,
 int scheme_stx_list_length(Scheme_Object *list);
 int scheme_stx_proper_list_length(Scheme_Object *list);
 
-Scheme_Object *scheme_stx_extract_marks(Scheme_Object *stx);
-
 Scheme_Object *scheme_resolve_placeholders(Scheme_Object *obj);
 
 Scheme_Object *scheme_stx_strip_module_context(Scheme_Object *stx);