.

1 files changed, 9 insertions, 9 deletions

diff --git a/shell/evaluate.mu b/shell/evaluate.mu
index 923bd0e4..c789d755 100644
--- a/shell/evaluate.mu
+++ b/shell/evaluate.mu
@@ -1356,9 +1356,9 @@ fn cell-isomorphic? _a: (addr cell), _b: (addr cell), trace: (addr trace) -> _/e
   compare b-type, 5/screen
   {
     break-if-!=
-    var a-val-addr/eax: (addr handle screen) <- get a, screen-data
-    var b-val-addr/ecx: (addr handle screen) <- get b, screen-data
-    var result/eax: boolean <- handle-equal? *a-val-addr, *b-val-addr
+    var a-val-ah/eax: (addr handle screen) <- get a, screen-data
+    var b-val-ah/ecx: (addr handle screen) <- get b, screen-data
+    var result/eax: boolean <- handle-equal? *a-val-ah, *b-val-ah
     compare result, 0/false
     return result
   }
@@ -1366,12 +1366,12 @@ fn cell-isomorphic? _a: (addr cell), _b: (addr cell), trace: (addr trace) -> _/e
   compare b-type, 6/keyboard
   {
     break-if-!=
-    var a-val-addr/ecx: (addr handle gap-buffer) <- get a, keyboard-data
-    var _a/eax: (addr gap-buffer) <- lookup *a-val-addr
-    var a/ecx: (addr gap-buffer) <- copy _a
-    var b-val-addr/eax: (addr handle gap-buffer) <- get b, keyboard-data
-    var b/eax: (addr gap-buffer) <- lookup *b-val-addr
-    var result/eax: boolean <- gap-buffers-equal? a, b
+    var a-val-ah/ecx: (addr handle gap-buffer) <- get a, keyboard-data
+    var _a-val/eax: (addr gap-buffer) <- lookup *a-val-ah
+    var a-val/ecx: (addr gap-buffer) <- copy _a-val
+    var b-val-ah/eax: (addr handle gap-buffer) <- get b, keyboard-data
+    var b-val/eax: (addr gap-buffer) <- lookup *b-val-ah
+    var result/eax: boolean <- gap-buffers-equal? a-val, b-val
     return result
   }
   # if a is nil, b should be nil