diff --git a/scheme/httpd/surflets/input-fields.scm b/scheme/httpd/surflets/input-fields.scm
index 3010f53..5278f82 100644
--- a/scheme/httpd/surflets/input-fields.scm
+++ b/scheme/httpd/surflets/input-fields.scm
@@ -31,13 +31,6 @@
        (eq? *input-field-trigger* (car input-field))
        (real-input-field? (cadr input-field))))
 
-;; FIXME: consider creating small names
-(define generate-unique-name
-  (let ((id 0))
-    (lambda (type-string)
-      (set! id (+ 1 id))
-      (string-append type-string (number->string id)))))
-
 (define generate-input-field-name generate-unique-name)
 
 (define identity (lambda (a) a))