Fix typo in previous change.

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index d6996883ff05976d9fb84582c906e5e655227f1f..fa8af7d29c06f2810a5016d62ced481a63eec0f1 100644 (file)
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -120,10 +120,10 @@ USA.
   (%dispatch-tag-extra-set! record-type 2 applicator))
 
 (define-integrable (%record-type-instance-marker record-type)
-  (dispatch-tag-extra-ref record-type 2))
+  (dispatch-tag-extra-ref record-type 3))
 
 (define-integrable (%set-record-type-instance-marker! record-type marker)
-  (%dispatch-tag-extra-set! record-type 2 marker))
+  (%dispatch-tag-extra-set! record-type 3 marker))
 
 (define (%initialize-applicator-context!)
   (set-fixed-objects-item! 'record-dispatch-tag %record-metatag)