diff --git a/vm/alien.c b/vm/alien.c
index 93c9948fda..a79d665041 100644
--- a/vm/alien.c
+++ b/vm/alien.c
@@ -38,7 +38,7 @@ void *pinned_alien_offset(CELL object)
 		alien = untag_object(object);
 		if(alien->expired != F)
 			general_error(ERROR_EXPIRED,object,F,NULL);
-		return alien_offset(alien->alien) + alien->displacement;
+		return pinned_alien_offset(alien->alien) + alien->displacement;
 	case F_TYPE:
 		return NULL;
 	default:
diff --git a/vm/cpu-x86.S b/vm/cpu-x86.S
index 7032b77e18..4331800cf9 100644
--- a/vm/cpu-x86.S
+++ b/vm/cpu-x86.S
@@ -29,7 +29,7 @@ DEF(F_FASTCALL void,dosym,(CELL word)):
 /* Here we have two entry points. The first one is taken when profiling is
 enabled */
 DEF(F_FASTCALL void,docol_profiling,(CELL word)):
-	add $CELL_SIZE,PROFILING_OFFSET(ARG0) /* Increment profile-count slot */
+	add $8,PROFILING_OFFSET(ARG0)         /* Increment profile-count slot */
 DEF(F_FASTCALL void,docol,(CELL word)):
 	mov WORD_DEF_OFFSET(ARG0),ARG0        /* Load word-def slot */
 	JUMP_QUOT