--- extras.scm	2005-09-26 10:27:47.424011312 +0900
+++ extras.scm~	2005-09-25 04:58:11.000000000 +0900
@@ -1490,14 +1490,14 @@
 	    ((eq? x '()) 258)
 	    ((##core#inline "C_eofp" x) 259)
 	    ((not (##core#inline "C_blockp" x)) 262)
-	    ((##core#inline "C_byteblockp" x) (##core#inline "C_hash_string" x))
+	    ((##sys#permanent? x) (##core#inline "C_hashptr" x))
+	    ((##core#inline "C_symbolp" x) (##core#inline "C_hash_string" (##sys#slot x 1)))
 	    ((list? x) (fx+ (length x) (hash-with-test (##sys#slot x 0) d)))
 	    ((pair? x) 
 	     (fx+ (arithmetic-shift (hash-with-test (##sys#slot x 0) d) 16)
 		  (hash-with-test (##sys#slot x 1) d) ) )
-	    ((##sys#permanent? x) (##core#inline "C_hashptr" x))
-	    ((##core#inline "C_symbolp" x) (##core#inline "C_hash_string" (##sys#slot x 1)))
 	    ((##core#inline "C_portp" x) (if (input-port? x) 260 261))
+	    ((##core#inline "C_byteblockp" x) (##core#inline "C_hash_string" x))
 	    (else
 	     (let ([len (##sys#size x)]
 		   [start (if (##core#inline "C_specialp" x) 1 0)] )