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