diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index dc24280353..bdbd848180 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -3767,7 +3767,7 @@ static void lock_registry(Scheme_Env *env)
 {
   Scheme_Object *lock;
   lock = scheme_make_pair(scheme_make_sema(0),
-                          scheme_current_thread);
+                          (Scheme_Object *) scheme_current_thread);
   scheme_hash_set(env->module_registry, scheme_false, lock);
 }
 
diff --git a/src/mzscheme/src/thread.c b/src/mzscheme/src/thread.c
index f95c097f00..158b3e5b4c 100644
--- a/src/mzscheme/src/thread.c
+++ b/src/mzscheme/src/thread.c
@@ -7903,7 +7903,8 @@ int scheme_is_in_frozen_stack()
 static unsigned long get_deeper_base()
 {
   long here;
-  return (unsigned long)&here;
+  unsigned long here_addr = (unsigned long)&here;
+  return here_addr;
 }
 
 #ifdef _MSC_VER