From 0e8e2af0a7d4b555013f2e99022f83f6b00e557b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Tue, 17 Jun 2014 17:55:55 +0200
Subject: [PATCH] VM: adding a few forgotten .untagged() calls

---
 vm/bignum.cpp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/vm/bignum.cpp b/vm/bignum.cpp
index 256b2c7fcf..1e26b7966e 100644
--- a/vm/bignum.cpp
+++ b/vm/bignum.cpp
@@ -1731,7 +1731,7 @@ bignum* factor_vm::bignum_gcd(bignum* a_, bignum* b_) {
   b = d;
 
   /* Initial reduction: make sure that 0 <= b <= a. */
-  if (bignum_compare(a, b) == bignum_comparison_less) {
+  if (bignum_compare(a.untagged(), b.untagged()) == bignum_comparison_less) {
     swap(a, b);
     std::swap(size_a, size_b);
   }
@@ -1776,7 +1776,7 @@ bignum* factor_vm::bignum_gcd(bignum* a_, bignum* b_) {
     if (k == 0) {
       /* no progress; do a Euclidean step */
       if (size_b == 0) {
-        return bignum_trim(a);
+        return bignum_trim(a.untagged());
       }
       data_root<bignum> e(bignum_trim(a.untagged()), this);
       data_root<bignum> f(bignum_trim(b.untagged()), this);