diff --git a/ice-9/psyntax.ss b/ice-9/psyntax.ss
index 0fd70f342..b49d148e1 100644
--- a/ice-9/psyntax.ss
+++ b/ice-9/psyntax.ss
@@ -399,7 +399,7 @@
 
 (define-syntax build-lexical-var
   (syntax-rules ()
-    ((_ src id) (gensym id generated-symbols))))
+    ((_ src id) (gentemp (symbol->string id) generated-symbols))))
 
 (define-syntax self-evaluating?
   (syntax-rules ()