diff --git a/basis/compiler/codegen/relocation/relocation.factor b/basis/compiler/codegen/relocation/relocation.factor
index f2bc0d0de7..2a4447fa55 100644
--- a/basis/compiler/codegen/relocation/relocation.factor
+++ b/basis/compiler/codegen/relocation/relocation.factor
@@ -102,6 +102,9 @@ MEMO: cached-string>symbol ( symbol -- obj ) string>symbol ;
 : rel-inline-cache-miss ( class -- )
     rt-inline-cache-miss add-relocation ;
 
+: rel-safepoint ( class -- )
+    rt-safepoint add-relocation ;
+
 : init-relocation ( -- )
     V{ } clone parameter-table set
     V{ } clone literal-table set
diff --git a/basis/compiler/constants/constants.factor b/basis/compiler/constants/constants.factor
index 3440b85a80..fe12925e7f 100644
--- a/basis/compiler/constants/constants.factor
+++ b/basis/compiler/constants/constants.factor
@@ -70,6 +70,7 @@ CONSTANT: rt-decks-offset 11
 CONSTANT: rt-exception-handler 12
 CONSTANT: rt-dlsym-toc 13
 CONSTANT: rt-inline-cache-miss 14
+CONSTANT: rt-safepoint 15
 
 : rc-absolute? ( n -- ? )
     ${