Fix thinko in previous change.

diff --git a/src/runtime/infstr.scm b/src/runtime/infstr.scm
index 5b0ff6645b35cb9886afc35e02dc2aabe7c970bc..322b8a63869e190f87ad6a21d7022c7deb450361 100644 (file)
--- a/src/runtime/infstr.scm
+++ b/src/runtime/infstr.scm
@@ -362,8 +362,8 @@ USA.
 (define (dbg-info-key? object)
   (or (and (bytevector? object)
           (fix:= (bytevector-length object) 32))
-      (and (legacy-string? object)
-          (fix:= (legacy-string-length object) 32))))
+      (and ((ucode-primitive string? 1) object)
+          (fix:= ((ucode-primitive string-length 1) object) 32))))
 
 (define (dbg-info-key=? a b)
   (equal? a b))