--- a/FontDescr.st	Sat Jun 20 16:48:22 1998 +0200
+++ b/FontDescr.st	Sat Jun 20 17:04:25 1998 +0200
@@ -472,9 +472,10 @@
 hash
     "return a number for hashing - req'd since = is redefined."
 
-    ^ ((family hash + face hash + style hash) bitShift:5) + size
+    ^ (((family hash + face hash + style hash) bitShift:5) + (size hash)) bitAnd:16r3FFFFFFF
 
     "Created: / 19.6.1998 / 04:19:06 / cg"
+    "Modified: / 20.6.1998 / 17:04:00 / cg"
 ! !
 
 !FontDescription methodsFor:'converting'!
@@ -728,6 +729,6 @@
 !FontDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/FontDescr.st,v 1.24 1998-06-19 02:19:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/FontDescr.st,v 1.25 1998-06-20 15:04:25 cg Exp $'
 ! !
 FontDescription initialize!

--- a/FontDescription.st	Sat Jun 20 16:48:22 1998 +0200
+++ b/FontDescription.st	Sat Jun 20 17:04:25 1998 +0200
@@ -472,9 +472,10 @@
 hash
     "return a number for hashing - req'd since = is redefined."
 
-    ^ ((family hash + face hash + style hash) bitShift:5) + size
+    ^ (((family hash + face hash + style hash) bitShift:5) + (size hash)) bitAnd:16r3FFFFFFF
 
     "Created: / 19.6.1998 / 04:19:06 / cg"
+    "Modified: / 20.6.1998 / 17:04:00 / cg"
 ! !
 
 !FontDescription methodsFor:'converting'!
@@ -728,6 +729,6 @@
 !FontDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.24 1998-06-19 02:19:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.25 1998-06-20 15:04:25 cg Exp $'
 ! !
 FontDescription initialize!