diff --git a/src/buzbee.s b/src/buzbee.s
index 7ecf063..60e82f1 100644
--- a/src/buzbee.s
+++ b/src/buzbee.s
@@ -317,7 +317,8 @@ RUNIF
   beq NOTOK@
   ldx #0           ; Counting up from zero
   lda BBVAR.tokens ; Load token
-  tfr a,b          ; Get the index in D
+  tfr a,d          ; Get the index in D
+  clra
   asld             ; Cheaply << to get *2, pointer size
   tfr d,x          ; Move to X so we can use indexed mode with the offset
   jmp [IFPTRTBL,x] ; Select IF