diff --git a/tools/benchtimes/prefix/LC.scm b/tools/benchtimes/prefix/LC.scm
index 4a42bff..6ee7603 100644
--- a/tools/benchtimes/prefix/LC.scm
+++ b/tools/benchtimes/prefix/LC.scm
@@ -75,13 +75,13 @@
        r)))
 
 (define (##lc-exec-stats thunk)
-  (let* ((at-start (gambit$$##process-statistics))
+  (let* ((at-start (##process-statistics))
          (result (thunk))
-         (at-end (gambit$$##process-statistics)))
+         (at-end (##process-statistics)))
     (define (get-info msg idx)
       (cons msg
-            (- (gambit$$##f64vector-ref at-end idx)
-            (gambit$$##f64vector-ref at-start idx))))
+            (- (f64vector-ref at-end idx)
+               (f64vector-ref at-start idx))))
     (list
       result
       (get-info "User time" 0)
diff --git a/tools/benchtimes/prefix/LCf64v.scm b/tools/benchtimes/prefix/LCf64v.scm
index 0b36670..10a4056 100644
--- a/tools/benchtimes/prefix/LCf64v.scm
+++ b/tools/benchtimes/prefix/LCf64v.scm
@@ -80,13 +80,13 @@
        r)))
 
 (define (##lc-exec-stats thunk)
-  (let* ((at-start (gambit$$##process-statistics))
+  (let* ((at-start (##process-statistics))
          (result (thunk))
-         (at-end (gambit$$##process-statistics)))
+         (at-end (##process-statistics)))
     (define (get-info msg idx)
       (cons msg
-            (- (gambit$$##f64vector-ref at-end idx)
-            (gambit$$##f64vector-ref at-start idx))))
+            (- (f64vector-ref at-end idx)
+               (f64vector-ref at-start idx))))
     (list
       result
       (get-info "User time" 0)