diff --git a/changelog b/changelog
index ec2debe..6a0d90e 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,4 @@
+20080313 pab src/interp/hashcode.boot make Mapping hash correct for Aldor
 20080312 tpd src/algebra/intfact.spad speed BasicSieve, prime, add docs
 20080305 tpd src/hyper/bookvol11 add additional hyperdoc page translations
 20080304 tpd src/hyper/bookvol11 add additional hyperdoc page translations
diff --git a/src/interp/hashcode.boot.pamphlet b/src/interp/hashcode.boot.pamphlet
index 81e2748..ab388db 100644
--- a/src/interp/hashcode.boot.pamphlet
+++ b/src/interp/hashcode.boot.pamphlet
@@ -71,7 +71,7 @@ hashType(type, percentHash) ==
 			hash := hashCombine(hashType(arg, percentHash), hash)
                 retCode := hashType(retType, percentHash)
                 EQL(retCode, $VoidHash) => hash
-		hashCombine(retCode, hash)
+		hashCombine(retCode, hashCombine(32236,hash))
 	op = 'Enumeration =>
 		for arg in args repeat
 			hash := hashCombine(hashString(STRING arg), hash)