diff --git a/runtime-main.h b/runtime-main.h
index 1071aa58..692cda27 100644
--- a/runtime-main.h
+++ b/runtime-main.h
@@ -45,8 +45,9 @@ static void main_main (stack_size,heap_size,stack_base)
         stack_size,(void *)stack_base,(void *)stack_limit1);
  printf("main: Try different stack sizes from 4 K to 1 Meg.\n");
 #endif
- /* Do initializations of Lisp objects and rewrite rules.
- quote_list_f = mlist1(boolean_f); quote_list_t = mlist1(boolean_t); */
+
+ /* Initialize stack trace table */
+ Cyc_st_init();
 
  {
 
diff --git a/runtime.c b/runtime.c
index 6c6fa9b0..b8d30ed6 100644
--- a/runtime.c
+++ b/runtime.c
@@ -212,6 +212,8 @@ object Cyc_default_exception_handler(int argc, closure _, object err) {
       }
     }
 
+    fprintf(stderr, "\nCall history:\n");
+    Cyc_st_print(stderr);
     fprintf(stderr, "\n");
     exit(1);
     return nil;
diff --git a/test2.scm b/test2.scm
index 7f5a6961..8b35f804 100644
--- a/test2.scm
+++ b/test2.scm
@@ -5,6 +5,7 @@
 (set! x 1)
 (write x)
 (write 'Cyc_procedure)
+(open-input-file "1.scm")
 ;;; TODO: C macros for funcall1, etc are not being generated even though entries are set
 ;;;    in the vector. must be another problem inspecting the vector ???
 ;(write 'hello)