diff --git a/code/gc.lisp b/code/gc.lisp
index 6f212a8e703fda1a17a697dfdd024e42d105b1eb..9622aaf3506a2a3cc251fd3bf228aa01ebbe49ac 100644
--- a/code/gc.lisp
+++ b/code/gc.lisp
@@ -336,7 +336,7 @@
     ;;
     ;; Find all vector-like objects on the stack, putting code vectors in a
     ;; separate table. (step 1)
-    (do ((sp (%primitive pointer+ (%primitive current-cont)
+    (do ((sp (%primitive pointer+ (%primitive current-fp)
 			 (- %stack-increment))
 	     (%primitive pointer+ sp (- %stack-increment))))
 	((%primitive pointer< sp base))