diff --git a/collects/htdch/draw/support.scm b/collects/htdch/draw/support.scm
index ba9b802c51..0044fa9661 100644
--- a/collects/htdch/draw/support.scm
+++ b/collects/htdch/draw/support.scm
@@ -74,7 +74,7 @@
   (define (check-arg value method argument)
     (or (> value 0)
         (raise-error
-         (format "Method ~a expects an int >= 0 for ~a argument, given ~a" method argument value))))
+         (format "Method ~a expects an int > 0 for ~a argument, given ~a" method argument value))))
   
   (define (to-lower-case s)
     (letrec ((lower