From abf78c4e75d7766da08d178fcfd235c882c31398 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 12 Jan 2002 06:54:28 +0000
Subject: [PATCH] ...

original commit: f6f52b600c6dc0753b3afcaabf000e842312c851
---
 collects/framework/private/frame.ss | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 60f19536..0f429852 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -1010,6 +1010,9 @@
               (unbox b)))
           (super-instantiate ())
 
+	  (inherit set-cursor)
+	  (set-cursor (make-object cursor% 'arrow))
+
           (inherit set-line-spacing)
           (set-line-spacing 0)))