--- a/HostGraphicsDevice.st	Wed Aug 18 20:22:02 1999 +0200
+++ b/HostGraphicsDevice.st	Wed Aug 18 20:22:57 1999 +0200
@@ -119,7 +119,7 @@
 !
 
 releaseDeviceCursors
-    deviceCursors deviceCursors do:[:aCursor |
+    deviceCursors do:[:aCursor |
         aCursor releaseFromDevice
     ].
     deviceCursors := Registry new.
@@ -200,5 +200,5 @@
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.12 1999-08-18 18:21:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.13 1999-08-18 18:22:57 cg Exp $'
 ! !