diff --git a/ldb/ldb.c b/ldb/ldb.c
index 9ded9d746b0191f19d8561e62c0b505fd1baa5c3..6c9d13392fccd3010a17e58d2d2700b2548dd9d2 100644
--- a/ldb/ldb.c
+++ b/ldb/ldb.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.11 1991/02/16 01:00:31 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.12 1991/05/03 07:55:49 wlott Exp $ */
 /* Lisp kernel core debugger */
 
 #include <stdio.h>
@@ -88,7 +88,8 @@ char *envp[];
     restore_state = load_core_file(core);
 
 #ifdef ibmrt
-    SetSymbolValue(BINDING_STACK_POINTER, (lispobj)binding_stack);
+    if (!restore_state)
+	SetSymbolValue(BINDING_STACK_POINTER, (lispobj)binding_stack);
 #endif
 
     interrupt_init();