diff --git a/mps/example/scheme/scheme-advanced.c b/mps/example/scheme/scheme-advanced.c
index 2e77ca05c51..591569d5beb 100644
--- a/mps/example/scheme/scheme-advanced.c
+++ b/mps/example/scheme/scheme-advanced.c
@@ -1715,7 +1715,7 @@ static obj_t entry_quote(obj_t env, obj_t op_env, obj_t operator, obj_t operands
 
 static obj_t entry_define(obj_t env, obj_t op_env, obj_t operator, obj_t operands)
 {
-  obj_t symbol, value;
+  obj_t symbol = NULL, value = NULL;
   unless(TYPE(operands) == TYPE_PAIR &&
          TYPE(CDR(operands)) == TYPE_PAIR)
     error("%s: illegal syntax", operator->operator.name);
@@ -3479,7 +3479,7 @@ static obj_t entry_eqv_hash(obj_t env, obj_t op_env, obj_t operator, obj_t opera
 
 static obj_t make_hashtable(obj_t operator, obj_t rest, hash_t hashf, cmp_t cmpf, int weak_key, int weak_value)
 {
-  size_t length;
+  size_t length = 0;
   if (rest == obj_empty)
     length = 8;
   else unless(CDR(rest) == obj_empty)
diff --git a/mps/example/scheme/scheme-boehm.c b/mps/example/scheme/scheme-boehm.c
index 0963fc4a486..839f1a56fd3 100644
--- a/mps/example/scheme/scheme-boehm.c
+++ b/mps/example/scheme/scheme-boehm.c
@@ -1445,7 +1445,7 @@ static obj_t entry_quote(obj_t env, obj_t op_env, obj_t operator, obj_t operands
 
 static obj_t entry_define(obj_t env, obj_t op_env, obj_t operator, obj_t operands)
 {
-  obj_t symbol, value;
+  obj_t symbol = NULL, value = NULL;
   unless(TYPE(operands) == TYPE_PAIR &&
          TYPE(CDR(operands)) == TYPE_PAIR)
     error("%s: illegal syntax", operator->operator.name);
@@ -3212,7 +3212,7 @@ static obj_t entry_eqv_hash(obj_t env, obj_t op_env, obj_t operator, obj_t opera
 
 static obj_t make_hashtable(obj_t operator, obj_t rest, hash_t hashf, cmp_t cmpf)
 {
-  size_t length;
+  size_t length = 0;
   if (rest == obj_empty)
     length = 8;
   else unless(CDR(rest) == obj_empty)
diff --git a/mps/example/scheme/scheme-malloc.c b/mps/example/scheme/scheme-malloc.c
index bd317870de1..799e7db66cf 100644
--- a/mps/example/scheme/scheme-malloc.c
+++ b/mps/example/scheme/scheme-malloc.c
@@ -1445,7 +1445,7 @@ static obj_t entry_quote(obj_t env, obj_t op_env, obj_t operator, obj_t operands
 
 static obj_t entry_define(obj_t env, obj_t op_env, obj_t operator, obj_t operands)
 {
-  obj_t symbol, value;
+  obj_t symbol = NULL, value = NULL;
   unless(TYPE(operands) == TYPE_PAIR &&
          TYPE(CDR(operands)) == TYPE_PAIR)
     error("%s: illegal syntax", operator->operator.name);
@@ -3212,7 +3212,7 @@ static obj_t entry_eqv_hash(obj_t env, obj_t op_env, obj_t operator, obj_t opera
 
 static obj_t make_hashtable(obj_t operator, obj_t rest, hash_t hashf, cmp_t cmpf)
 {
-  size_t length;
+  size_t length = 0;
   if (rest == obj_empty)
     length = 8;
   else unless(CDR(rest) == obj_empty)
diff --git a/mps/example/scheme/scheme.c b/mps/example/scheme/scheme.c
index c6f68573467..a203d54ba74 100644
--- a/mps/example/scheme/scheme.c
+++ b/mps/example/scheme/scheme.c
@@ -1744,7 +1744,7 @@ static obj_t entry_quote(obj_t env, obj_t op_env, obj_t operator, obj_t operands
 
 static obj_t entry_define(obj_t env, obj_t op_env, obj_t operator, obj_t operands)
 {
-  obj_t symbol, value;
+  obj_t symbol = NULL, value = NULL;
   unless(TYPE(operands) == TYPE_PAIR &&
          TYPE(CDR(operands)) == TYPE_PAIR)
     error("%s: illegal syntax", operator->operator.name);
@@ -3508,7 +3508,7 @@ static obj_t entry_eqv_hash(obj_t env, obj_t op_env, obj_t operator, obj_t opera
 
 static obj_t make_hashtable(obj_t operator, obj_t rest, hash_t hashf, cmp_t cmpf)
 {
-  size_t length;
+  size_t length = 0;
   if (rest == obj_empty)
     length = 8;
   else unless(CDR(rest) == obj_empty)