Index: lang/elisp/pdicv-mode/trunk/pdicv-core.el
===================================================================
--- lang/elisp/pdicv-mode/trunk/pdicv-core.el (revision 74)
+++ lang/elisp/pdicv-mode/trunk/pdicv-core.el (revision 75)
@@ -96,6 +96,8 @@
       (when (> (logand dictype 1) 0) (setq dictype* (cons 'ar-compressed dictype*)))
 
-	  (case major-version
-		(6 "Ver 6.xx"
+	  ;;(case major-version
+	  (cond
+	   ((= major-version 6)
+		;;(6 "Ver 6.xx"
 		   (setq os (nt:read-char header-buf 167))
 		   (setq os (cond ((= os 0) 'sjis-crlf)
@@ -123,5 +125,6 @@
 		   (setq index-size (* index-block block-size)) ;overwrite
 		   );6
-		(5 "HyperDIC, Ver 5.00"
+	   ((= major-version 5)
+		;;(5 "HyperDIC, Ver 5.00"
 		   (setq os (nt:read-char header-buf 167))
 		   (setq os (cond ((= os 0) 'sjis-crlf)
@@ -148,5 +151,5 @@
 		   (setq index-size (* index-block block-size)) ;overwrite
 		   );5
-		(t "< 5.0"
+	   (t "< 5.0"
 		   (when (>= major-version 3)
 			 "NEWDIC2-"