diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml
index 98d3ddbff..1a09d14d1 100644
--- a/.github/workflows/ci.yml
+++ b/.github/workflows/ci.yml
@@ -10,11 +10,11 @@ jobs:
     strategy:
       fail-fast: false
       matrix:
-        vm: ['regular', 'CS']
+        vm: ['BC', 'CS']
 
     steps:
     - uses: actions/checkout@master
-    - uses: Bogdanp/setup-racket@v0.10
+    - uses: Bogdanp/setup-racket@v1.8.1
       with:
         architecture: 'x64'
         distribution: 'minimal'
@@ -23,12 +23,11 @@ jobs:
     - name: Install and setup
       run: |
         raco pkg install --auto compiler-lib
-        raco pkg install --auto -i --no-setup --skip-installed gui-test
         racket -l- pkg/dirs-catalog --link --check-metadata pkgs-catalog .
         echo file://`pwd`/pkgs-catalog/ > catalog-config.txt
         raco pkg config catalogs >> catalog-config.txt
         raco pkg config --set catalogs `cat catalog-config.txt`
-        raco pkg update -i --auto --no-setup gui-lib/ gui-doc/ gui/ tex-table/ gui-test/
+        raco pkg install -i --auto --no-setup gui-lib/ gui-doc/ gui/ tex-table/ gui-test/
         raco setup --pkgs gui gui-lib gui-test tex-table
     - name: Run tests
       run: |
diff --git a/gui-lib/mred/private/wx/gtk/frame.rkt b/gui-lib/mred/private/wx/gtk/frame.rkt
index 6b6dcae99..563c7d73d 100644
--- a/gui-lib/mred/private/wx/gtk/frame.rkt
+++ b/gui-lib/mred/private/wx/gtk/frame.rkt
@@ -611,10 +611,10 @@
        (define scale (gdk_screen_get_monitor_scale_factor
                       (gdk_screen_get_default)
                       num))
-       (make-GdkRectangle (/ (GdkRectangle-x r) scale)
-                          (/ (GdkRectangle-y r) scale)
-                          (/ (GdkRectangle-width r) scale)
-                          (/ (GdkRectangle-height r) scale))]
+       (make-GdkRectangle (floor (inexact->exact (/ (GdkRectangle-x r) scale)))
+                          (floor (inexact->exact (/ (GdkRectangle-y r) scale)))
+                          (floor (inexact->exact (/ (GdkRectangle-width r) scale)))
+                          (floor (inexact->exact (/ (GdkRectangle-height r) scale))))]
       [else r])))
 
 (define (display-origin x y all? num fail)