diff --git a/collects/tests/deinprogramm/image.rkt b/collects/tests/deinprogramm/image.rkt
index 4bb2cc43b5..0ee64a739a 100644
--- a/collects/tests/deinprogramm/image.rkt
+++ b/collects/tests/deinprogramm/image.rkt
@@ -101,8 +101,8 @@
         
       (let ([bm-normal (make-object bitmap% (max 1 width) (max 1 height))]
             [bm-bitmap (make-object bitmap% (max 1 width) (max 1 height))]
-            [s-normal (make-bytes (* width height 4))]
-            [s-bitmap (make-bytes (* width height 4))])
+            [s-normal (make-bytes (* (max 1 width) (max 1 height) 4))]
+            [s-bitmap (make-bytes (* (max 1 width) (max 1 height) 4))])
         
         (send bdc set-bitmap bm-normal)
         (send bdc clear)