diff --git a/BUGS b/BUGS
index 54a603f..7668d41 100644
--- a/BUGS
+++ b/BUGS
@@ -1,5 +1,9 @@
 * FIX: Error in generate-code: BUG: unhandles single rv.
 
+* In libcompile.ss:
+  If you move the (initialize-system) call to the very bottom of the
+  library, the system crashes on startup.  
+
 * Investigate what happens when an interrupt occurs during a write.
 
    > (define (f) (write (gensym)) (newline) (f))
@@ -12,3 +16,4 @@
    >
 
   Two displays occurred at the end.
+
diff --git a/src/ikarus.boot b/src/ikarus.boot
index c532847..b98c147 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libcompile.ss b/src/libcompile.ss
index ed66dcf..07a5be2 100644
--- a/src/libcompile.ss
+++ b/src/libcompile.ss
@@ -3220,9 +3220,9 @@
 (define (primref-loc op)
   (unless (symbol? op) (error 'primref-loc "not a symbol ~s" op))
   (cond
-    ;[(assq op (current-primitive-locations)) =>
-    ; (lambda (x)
-    ;   (mem (fx- disp-symbol-value symbol-tag) (obj (cdr x))))]
+    [(assq op (current-primitive-locations)) =>
+     (lambda (x)
+       (mem (fx- disp-symbol-value symbol-tag) (obj (cdr x))))]
     [else
      (mem (fx- disp-symbol-system-value symbol-tag)
           (obj op))]))