cons instances fix

diff --git a/native/walk.c b/native/walk.c
index 007ceb3085796aaf3a7dedeee7df3012ca902a3f..15554355291391a40b4c9a644bc9f471b97398d0 100644 (file)
--- a/native/walk.c
+++ b/native/walk.c
@@ -40,10 +40,12 @@ void primitive_instances(void)
 {
        CELL list = F;
        CELL search_type = to_fixnum(dpop());
-       CELL here = active.here;
+       CELL here;
 
        primitive_gc();
 
+       here = active.here;
+
        begin_heap_walk();
        
        for(;;)