diff --git a/scheme/ikarus.handlers.ss b/scheme/ikarus.handlers.ss
index e44a7ea..533c558 100644
--- a/scheme/ikarus.handlers.ss
+++ b/scheme/ikarus.handlers.ss
@@ -23,6 +23,14 @@
         [(x guard) (make-parameter x guard)]
         [(x) (make-parameter x)]))))
 
+(library (ikarus.pointer-value)
+  (export pointer-value)
+  (import (only (ikarus) define import))
+  (define (pointer-value x)
+    (import (ikarus))
+    (pointer-value x)))
+
+
 (library (ikarus system handlers)
   (export
     interrupt-handler $apply-nonprocedure-error-handler
diff --git a/scheme/last-revision b/scheme/last-revision
index 43a79d2..1f61070 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1695
+1696