diff --git a/scheme/httpd/surflets/surflet-input-fields.scm b/scheme/httpd/surflets/surflet-input-fields.scm
index f5e4f10..bb8173b 100644
--- a/scheme/httpd/surflets/surflet-input-fields.scm
+++ b/scheme/httpd/surflets/surflet-input-fields.scm
@@ -272,7 +272,7 @@
 ;; internal
 (define (make-multiple-select name select-options attributes)
   (make-multi-input-field name "mult-select"
-			  select-multiple-transformer
+			  multiple-select-transformer
 			  (make-field-attributes
 			   select-options 
 			   `((multiple) 
@@ -291,7 +291,7 @@
 		     (sxml-attribute-attributes attributes))
 		    make-select-html-tree))
 
-(define (select-multiple-transformer select bindings)
+(define (multiple-select-transformer select bindings)
   (let ((name (input-field-name select))
 	(select-options (field-attributes-default 
 			 (input-field-attributes select))))