1 files changed, 8 insertions, 8 deletions
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot
index f8820697..c3690278 100644
--- a/src/interp/i-spec1.boot
+++ b/src/interp/i-spec1.boot
@@ -345,24 +345,24 @@ upcase t ==
         if d is [":",=rhs,.] then rhstag := i
      if NULL rhstag then error '"upcase: bad Union form"
      $genValue =>
-        rhstag = first unwrap objVal triple => code := wrap 'TRUE
-        code := wrap NIL
+        rhstag = first unwrap objVal triple => code := wrap true
+        code := wrap false
      code :=
         ["COND",
           [["EQL",rhstag,["CAR",["unwrap",objVal triple]]],
-            ''TRUE],
-              [''T,NIL]]
+            true],
+              [''T,false]]
   else
     $genValue =>
         t' := coerceUnion2Branch triple
-        rhs = objMode t' => code := wrap 'TRUE
-        code := wrap NIL
+        rhs = objMode t' => code := wrap true
+        code := wrap false
     triple' := objNewCode(["wrap",objVal triple],objMode triple)
     code :=
         ["COND",
           [["EQUAL",MKQ rhs,["objMode",['coerceUnion2Branch,triple']]],
-            ''TRUE],
-              [''T,NIL]]
+            true],
+              [''T,false]]
   putValue(op,objNew(code,$Boolean))
   putModeSet(op,[$Boolean])