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