From 64278e21125f7f56b75566a17051b8cb9c292597 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Fri, 4 Jul 2008 20:37:16 -0700
Subject: [PATCH] fix <displaced-alien> applied to already displaced alien

---
 vm/alien.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vm/alien.c b/vm/alien.c
index 7fdf9ccdb2..5b4ff3b832 100755
--- a/vm/alien.c
+++ b/vm/alien.c
@@ -62,7 +62,7 @@ CELL allot_alien(CELL delegate, CELL displacement)
 	{
 		F_ALIEN *delegate_alien = untag_object(delegate);
 		displacement += delegate_alien->displacement;
-		alien->alien = F;
+		alien->alien = delegate_alien->alien;
 	}
 	else
 		alien->alien = delegate;