From 11c8b72704e584516f32a1c2de014e20dbfad34e Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Sun, 21 Aug 2005 16:55:34 +0000
Subject: [PATCH] It's FOCUS-VALUE-REF, not FOCUS-VALUE.

---
 scheme/focus.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))