diff --git a/collects/sgl/gl.ss b/collects/sgl/gl.ss
index 246f4b8a9e..1c315a87e1 100644
--- a/collects/sgl/gl.ss
+++ b/collects/sgl/gl.ss
@@ -14,8 +14,9 @@
 		   [else (ffi-lib "libGLU")]))
   
   (define (unavailable name)
-    (lambda x
-      (error 'name "unavailable on this system")))
+    (lambda ()
+      (lambda x
+        (error name "unavailable on this system"))))
   
   (define-syntax define-foreign-lib
     (syntax-rules (->)