From d6e1db9b19a58fd6298e3d37eb6ec25f34ff191a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 29 Dec 2010 15:17:00 +0000
Subject:

---
 src/interp/hashcode.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/hashcode.boot')

diff --git a/src/interp/hashcode.boot b/src/interp/hashcode.boot
index 1b49d977..414ad5fa 100644
--- a/src/interp/hashcode.boot
+++ b/src/interp/hashcode.boot
@@ -67,7 +67,7 @@ hashType(type, percentHash) ==
                 hashCombine(retCode, hash)
         op = 'Enumeration =>
                 for arg in args repeat
-                        hash := hashCombine(hashString(STRING arg), hash)
+                  hash := hashCombine(hashString(symbolName arg), hash)
                 hash
         op in $DomainsWithoutLisplibs =>
                 for arg in args repeat
-- 
cgit v1.2.3