diff --git a/src/ikarus.boot b/src/ikarus.boot
index 2f1dd92..fbcf709 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libcompile.ss b/src/libcompile.ss
index f59d103..9f9c3f2 100644
--- a/src/libcompile.ss
+++ b/src/libcompile.ss
@@ -5203,6 +5203,8 @@
 (primitive-set! 'eval-core
   (lambda (x) ((compile-core-expr x))))
 
+(primitive-set! 'current-primitive-locations
+  (make-parameter '()))
 
 ))
 
diff --git a/src/library-manager.ss b/src/library-manager.ss
index d10ecd8..e02ec4a 100644
--- a/src/library-manager.ss
+++ b/src/library-manager.ss
@@ -440,6 +440,7 @@
       [list*->code*       list*->code*-label       (core-prim . list*->code*)]
       [install-library         install-library-label         (core-prim . install-library)]
       [eval-top-level   eval-top-level-label   (core-prim . eval-top-level)]
+      [current-primitive-locations       current-primitive-locations-label       (core-prim . current-primitive-locations)]
       ;;; record/mid-level
       [record?                 record?-label                 (core-prim . record?)]
       [make-record-type        make-record-type-label        (core-prim . make-record-type)]