From 2dad520855352df77add29f5cda49846c4cd0125 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 6 Mar 2000 17:05:47 +0000
Subject: [PATCH] ...

original commit: 2502eaf3fec060354809634ac236f1b1379d0a92
---
 collects/framework/guiutils.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/framework/guiutils.ss b/collects/framework/guiutils.ss
index 7a311cdf..fc461e2d 100644
--- a/collects/framework/guiutils.ss
+++ b/collects/framework/guiutils.ss
@@ -59,7 +59,8 @@
 		    delay
 		    (lambda ()
 		      (if win
-			  (set! old-cursor (send win set-cursor watch))
+			  (begin (set! old-cursor (send win get-cursor))
+                                 (send win set-cursor watch))
 			  (begin-busy-cursor)))
 		    (lambda ()
 		      (if win