From 5001c5175344fb371c6a797f65fa1cc7046a7fe0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 8 Aug 2007 14:34:28 +0000
Subject: [PATCH] fix bug in hash table used for Windows 95/98/Me (crashes 3m)

svn: r7055
---
 src/mred/mredmsw.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mred/mredmsw.cxx b/src/mred/mredmsw.cxx
index 772a2654e4..eb79513040 100644
--- a/src/mred/mredmsw.cxx
+++ b/src/mred/mredmsw.cxx
@@ -1115,7 +1115,7 @@ void DeleteRegisteredGDIObject(HANDLE x)
 
       if (!v[0] && !v[1]) {
 	/* Remove from hash table: */
-	scheme_hash_set(gdi_objects, (Scheme_Object *)x, NULL);
+	scheme_hash_set(gdi_objects, key, NULL);
       }
     }
   }