use #:runtime?-id for improved cross-build support

gui-lib/info.rkt

@@ -4,7 +4,7 @@
 
 (define deps '("srfi-lite-lib"
                "data-lib"
-               ["base" #:version "6.2.900.17"]
+               ["base" #:version "6.4"]
                "syntax-color-lib"
                ["draw-lib" #:version "1.11"]
                ["snip-lib" #:version "1.2"]

gui-lib/mred/private/wx/platform.rkt

@@ -7,9 +7,10 @@
  (protect-out (all-defined-out)))
 
 (define-runtime-module-path-index platform-lib
+  #:runtime?-id runtime?
   (let ([gtk-lib
          '(lib "mred/private/wx/gtk/platform.rkt")])
-    (case (cross-system-type)
+    (case (if runtime? (system-type) (cross-system-type))
       [(windows) (if (getenv "PLT_WIN_GTK")
                      gtk-lib
                      '(lib "mred/private/wx/win32/platform.rkt"))]