Work in progres, please take a look and give early feedback if this is the way we want to structure…

src/vm/process.cc

Index: src/vm/process.cc
diff --git a/src/vm/process.cc b/src/vm/process.cc
index a3fdb66c99df28407fe32509f6a4f2079f03b632..b232541db540bac9d9e45b12b29d427fa226f39f 100644
--- a/src/vm/process.cc
+++ b/src/vm/process.cc
@@ -881,9 +881,9 @@ NATIVE(ProcessQueueGetMessage) {
 
     case PortQueue::FOREIGN:
     case PortQueue::FOREIGN_FINALIZED: {
-      Class* foreign_class = process->program()->foreign_class();
-      ASSERT(foreign_class->NumberOfInstanceFields() == 2);
-      Object* object = process->NewInstance(foreign_class);
+      Class* foreign_memory_class = process->program()->foreign_memory_class();
+      ASSERT(foreign_memory_class->NumberOfInstanceFields() == 2);
+      Object* object = process->NewInstance(foreign_memory_class);
       if (object == Failure::retry_after_gc()) return object;
       Instance* foreign = Instance::cast(object);
       uword address = queue->address();