--- a/Filename.st	Mon Dec 22 19:42:09 2008 +0100
+++ b/Filename.st	Mon Dec 22 19:44:05 2008 +0100
@@ -1634,7 +1634,7 @@
     "return an integer useful as a hash-key"
 
     self class isCaseSensitive ifFalse:[
-        ^ nameString asUppercase    
+        ^ nameString asUppercase hash   
     ].
     ^ nameString hash
 !
@@ -5572,7 +5572,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.333 2008-12-22 18:42:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.334 2008-12-22 18:44:05 cg Exp $'
 ! !
 
 Filename initialize!