diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 2c3a9d2e16..eba67129a5 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,10 +1,3 @@
-- crash:
-  - start UI
-  - redefine new-size
-  - recompile all
-  - full gc
-  - crash!
-
 - unix i/o: problems with passing f to syscalls
 - if a primitive throws an error, :c doesn't show the call frame there
 - "benchmark/help": without a yield UI runs out of memory
@@ -63,6 +56,7 @@
 
 + ui:
 
+- fix listener scroll to
 - { } H{ } [ ] tabular-output -- excess newline
 - multiple listener-run-files is broken
 - word wrap in UI broken again
diff --git a/vm/gc.c b/vm/gc.c
index 98883d4335..4027a98427 100644
--- a/vm/gc.c
+++ b/vm/gc.c
@@ -114,7 +114,7 @@ void collect_roots(void)
 		
 		collect_callstack(stacks->call_region,stacks->call);
 
-		if(stacks != stack_chain)
+		if(stacks->next != NULL)
 		{
 			collect_callframe_triple(&stacks->callframe,
 				&stacks->callframe_scan,&stacks->callframe_end);