diff --git a/native/alien.c b/native/alien.c
index ce78b6ecd7..022be5050a 100644
--- a/native/alien.c
+++ b/native/alien.c
@@ -59,9 +59,12 @@ ALIEN* alien(void* ptr)
 	return alien;
 }
 
-void box_alien(void* ptr)
+void box_alien(void *ptr)
 {
-	dpush(tag_object(alien(ptr)));
+	if(ptr == NULL)
+		dpush(F);
+	else
+		dpush(tag_object(alien(ptr)));
 }
 
 void primitive_alien(void)