diff --git a/core/math/math.factor b/core/math/math.factor
index 7f796e91b7..fea77855eb 100755
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -91,6 +91,10 @@ M: real hashcode* nip >fixnum ;
 M: real <=> - ;
 
 ! real and sequence overlap. we disambiguate:
+M: integer equal? number= ;
+
+M: integer hashcode* nip >fixnum ;
+
 M: integer <=> - ;
 
 GENERIC: fp-nan? ( x -- ? )
diff --git a/vm/debug.c b/vm/debug.c
index d8cfd1c599..b0761a4c5c 100755
--- a/vm/debug.c
+++ b/vm/debug.c
@@ -111,6 +111,7 @@ void print_stack_frame(F_STACK_FRAME *frame)
 	printf("\n");
 	print_obj(frame_scan(frame));
 	printf("\n");
+	printf("%lx\n",(CELL)frame_executing(frame));
 	printf("%lx\n",(CELL)frame->xt);
 }