runtime/host-adapter: Add string-foldcase. Train any 9.2 release.

diff --git a/src/runtime/host-adapter.scm b/src/runtime/host-adapter.scm
index 94e38aadcbb96cebcb725eb16d987cc9c28f57bc..20667844b8c26b1bac68b9f0555438985c9c67a8 100644 (file)
--- a/src/runtime/host-adapter.scm
+++ b/src/runtime/host-adapter.scm
@@ -36,7 +36,7 @@ USA.
 ;;; only until the new runtime is released.  They assume the host is
 ;;; the current release (9.2 as of March 2017).
 
-(if (string=? "9.2" (get-subsystem-version-string "release"))
+(if (string-prefix? "9.2" (get-subsystem-version-string "release"))
     (begin
       (eval
        '(begin
@@ -56,7 +56,9 @@ USA.
                (error "MICROCODE-TYPE: Unknown name" name)))
 
          (define (bytes-per-object)
-           (vector-ref (gc-space-status) 0)))
+           (vector-ref (gc-space-status) 0))
+
+         (define string-foldcase string-upcase))
        (->environment '()))
       ;; Make new CREF's .pkds usable.
       (eval