diff --git a/scheme/focus.scm b/scheme/focus.scm
index ef84f5f..98f3d8e 100644
--- a/scheme/focus.scm
+++ b/scheme/focus.scm
@@ -19,4 +19,4 @@
 
 (define (make-focus-object-reference table obj)
   (let ((id (add-focus-object table obj)))
-    `(focus-value ,id)))
+    `(focus-value-ref ,id)))