diff --git a/Makefile.defs b/Makefile.defs
index d659e1fd07dea4b53331591dcb066c2a9ab99198..64b7431aa305d7d27fc423d47fe7c84814b47d90 100644
--- a/Makefile.defs
+++ b/Makefile.defs
@@ -9,24 +9,6 @@ SHARED_EXT = so
 LISP	= ../src/lispi$(exe)
 DCL	= dcli
 
-# Set the case mode when building and dumping an image
-# case_mode:
-#	ansi -- traditional case-insensitive upper-case CL
-#	modern -- case-sensitive lower-case CL
-case_mode = ansi
-
-ifeq ($(case_mode),ansi)
-CASE_MODE		= :case-insensitive-upper
-endif
-
-ifeq ($(case_mode),modern)
-CASE_MODE		= :case-sensitive-lower
-endif
-
-ifndef CASE_MODE
-..........................case_mode not defined or bad value...................
-endif
-
 CL	= $(LISP) -I $(DCL)
 CLOPTS	= -qq -batch -backtrace-on-error -locale japan.euc
 
diff --git a/Makefile.generic b/Makefile.generic
index dce237d91a9461d950911196fb5e393d557a7b49..4a52d157676790ef90fcb26d4b95662c247a112e 100644
--- a/Makefile.generic
+++ b/Makefile.generic
@@ -18,7 +18,6 @@ compile: FORCE $(PRODUCT-OBJS) $(ICS-PRODUCT-OBJS) $(compile_depends)
 	echo '(setq sys::*libxt-pathname* "$(XTLIB)")' >> build.tmp
 	echo '(setq sys::*libx11-pathname* "$(XLIB)")' >> build.tmp
 	echo '(setq sys::*libwnn-pathname* "$(WNNLIB)")' >> build.tmp
-	echo '(excl:set-case-mode $(CASE_MODE))' >> build.tmp
 	echo '(load "misc/compile-1.lisp")' >> build.tmp
 	echo '(declaim (optimize (speed $(SPEED)) (debug $(DEBUG)) (safety $(SAFETY))))' >> build.tmp
 	echo '(setq *compile-print* $(compile_print))' >> build.tmp