From b532f8a991d744e62b535ba3730430d328765b4c Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Mon, 14 Jul 2003 09:10:36 +0000
Subject: [PATCH] Minor change in FIND-IMAGE-BUTTON-COORDINATE.

---
 scheme/httpd/surflets/surflet-input-fields.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/scheme/httpd/surflets/surflet-input-fields.scm b/scheme/httpd/surflets/surflet-input-fields.scm
index 172ab5a..16a890f 100644
--- a/scheme/httpd/surflets/surflet-input-fields.scm
+++ b/scheme/httpd/surflets/surflet-input-fields.scm
@@ -500,8 +500,7 @@
   (let* ((name (input-field-name image-button)))
     (cond 
      ((assoc (string-append name suffix) bindings)
-      => (lambda (pair)
-	   (cdr pair)))
+      => cdr)
      (else #f))))
 
 ;;EOF
\ No newline at end of file