From 757b3423a0ad1934085bc23fd2ea14de49f77208 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 23 Apr 2001 00:42:44 +0000
Subject: [PATCH] no message

original commit: 13ff4cd604078dbaac6a6556ebce8f931d2dfba2
---
 collects/framework/private/editor.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/framework/private/editor.ss b/collects/framework/private/editor.ss
index dd8e40f4..860f1881 100644
--- a/collects/framework/private/editor.ss
+++ b/collects/framework/private/editor.ss
@@ -156,7 +156,7 @@
 	      [(t) (run-after-edit-sequence t #f)]
 	      [(t sym)
 	       (unless (and (procedure? t)
-			    (= 0 (arity t)))
+			    (= 0 (procedure-arity t)))
 		 (error 'media-buffer::run-after-edit-sequence
 			"expected procedure of arity zero, got: ~s~n" t))
 	       (unless (or (symbol? sym) (not sym))