diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss
index a1e07a1..3f0aeb7 100644
--- a/collects/mzlib/functior.ss
+++ b/collects/mzlib/functior.ss
@@ -306,12 +306,11 @@
       (eq? x y)))
   
   (define (symbol=? x y)
-    (lambda (x y)
-      (unless (and (symbol? x)
-                   (symbol? y))
-        (raise-type-error 'symbol=? "symbol"
-			  (if (symbol? x) y x)))
-      (eq? x y)))
+    (unless (and (symbol? x)
+		 (symbol? y))
+      (raise-type-error 'symbol=? "symbol"
+			(if (symbol? x) y x)))
+    (eq? x y))
   
   (define cons? (lambda (x) (pair? x)))
   (define empty? (lambda (x) (null? x)))