racket/draw and racket/gui: fix error reporting

Repair change from 5e903441a4 that added support for keyword
arguments.

Closes PR 14325

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))))))
      
 

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"))
 
 ;; ----------------------------------------