diff --git a/scheme/httpd/surflets/utilities.scm b/scheme/httpd/surflets/utilities.scm
index f193cb7..94d559f 100644
--- a/scheme/httpd/surflets/utilities.scm
+++ b/scheme/httpd/surflets/utilities.scm
@@ -30,4 +30,6 @@
 ;; FIXME: consider creating small names
 (define (generate-unique-name type-string)
   (string-append type-string 
-		 (number->string (generate-unique-number))))
\ No newline at end of file
+		 (number->string (generate-unique-number))))
+
+(define identity (lambda (a) a))