--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -648,6 +648,16 @@
 (define-fop (fop-assembler-routine 145)
   (error "cannot load assembler code except at cold load"))
 
+(define-fop (fop-symbol-tls-fixup 146)
+  (let* ((symbol (pop-stack))
+         (kind (pop-stack))
+         (code-object (pop-stack)))
+    (sb!vm:fixup-code-object code-object
+                             (read-word-arg)
+                             (ensure-symbol-tls-index symbol)
+                             kind)
+    code-object))
+
 (define-fop (fop-foreign-fixup 147)
   (let* ((kind (pop-stack))
          (code-object (pop-stack))