diff --git a/racket/src/cs/rumble/foreign.ss b/racket/src/cs/rumble/foreign.ss
index 57dd08c976..10ac556bd1 100644
--- a/racket/src/cs/rumble/foreign.ss
+++ b/racket/src/cs/rumble/foreign.ss
@@ -579,6 +579,9 @@
                            (array ,count ,(car reps))))))))]
         [size (* count (ctype-sizeof type))]
         [alignment (ctype-alignof type)])
+    (unless (fixnum? size)
+      (raise-arguments-error who "arithmetic overflow for overlarge array type"
+                             "size" size))
     (create-compound-ctype 'array
                            'array
                            (vector type count)