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