diff --git a/pkgs/draw-pkgs/draw-lib/racket/draw/private/syntax.rkt b/pkgs/draw-pkgs/draw-lib/racket/draw/private/syntax.rkt
index 90bb3857ad..e301d67481 100644
--- a/pkgs/draw-pkgs/draw-lib/racket/draw/private/syntax.rkt
+++ b/pkgs/draw-pkgs/draw-lib/racket/draw/private/syntax.rkt
@@ -194,7 +194,7 @@
   (make-keyword-procedure
    (lambda (kws kw-args name expected pos . args)
      (if (number? pos)
-         (raise-type-error name expected pos args)
+         (apply raise-type-error name expected pos args)
          (raise-type-error name expected (car pos))))))
      
 
diff --git a/pkgs/gui-pkgs/gui-test/tests/gracket/wxme.rkt b/pkgs/gui-pkgs/gui-test/tests/gracket/wxme.rkt
index 4a04242ea9..9f48d279cf 100644
--- a/pkgs/gui-pkgs/gui-test/tests/gracket/wxme.rkt
+++ b/pkgs/gui-pkgs/gui-test/tests/gracket/wxme.rkt
@@ -1422,6 +1422,13 @@
   (send t1 insert "Hello\tWorld")
   (send t1 get-extent (box 0) (box 0)))
 
+;; ----------------------------------------
+;; Error reporting
+
+(when (regexp-match? #rx"raise-type-error"
+                     (with-handlers ([exn:fail? exn-message])
+                       (send (new text%) get-text 1 'end #t)))
+  (error "bad error message"))
 
 ;; ----------------------------------------