--- a/WindowGroup.st	Wed Mar 29 10:44:13 2006 +0200
+++ b/WindowGroup.st	Wed Mar 29 10:56:45 2006 +0200
@@ -2723,7 +2723,7 @@
         |old|
 
         old := aView cursor.
-        old ~~ aCursor ifTrue:[
+        old ~~ deviceCursor ifTrue:[
             oldCursors at:aView put:old.
             aView cursor:deviceCursor now:false
         ]
@@ -2787,7 +2787,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.279 2006-01-30 19:12:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.280 2006-03-29 08:56:45 stefan Exp $'
 ! !
 
 WindowGroup initialize!