Index: libguile/gc.c
===================================================================
RCS file: /egcs/carton/cvsfiles/guile/guile-core/libguile/gc.c,v
retrieving revision 1.39
diff -c -r1.39 gc.c
*** gc.c	1998/12/05 18:52:12	1.39
--- gc.c	1998/12/10 18:46:01
***************
*** 1862,1876 ****
    if (0L == init_heap_size)
      init_heap_size = SCM_INIT_HEAP_SIZE;
    j = init_heap_size;
!   if ((init_heap_size != j)
!       || !init_heap_seg ((SCM_CELLPTR) malloc (j), j, 1, &scm_freelist))
      {
!       j = SCM_HEAP_SEG_SIZE;
!       if (!init_heap_seg ((SCM_CELLPTR) malloc (j), j, 1, &scm_freelist))
! 	return 1;
      }
-   else
-     scm_expmem = 1;
    scm_heap_org = CELL_UP (scm_heap_table[0].bounds[0]);
    /* scm_hplims[0] can change. do not remove scm_heap_org */
    if (!(scm_weak_vectors = (SCM *) malloc ((scm_weak_size = 32) * sizeof(SCM *))))
--- 1862,1876 ----
    if (0L == init_heap_size)
      init_heap_size = SCM_INIT_HEAP_SIZE;
    j = init_heap_size;
!   
!   if (init_heap_size != j) {
!     j = SCM_HEAP_SEG_SIZE;
!     scm_expmem = 1;
!   }
!   if (!init_heap_seg ((SCM_CELLPTR) malloc (j), j, 1, &scm_freelist))
      {
!       return 1;
      }
    scm_heap_org = CELL_UP (scm_heap_table[0].bounds[0]);
    /* scm_hplims[0] can change. do not remove scm_heap_org */
    if (!(scm_weak_vectors = (SCM *) malloc ((scm_weak_size = 32) * sizeof(SCM *))))