diff --git a/collects/tests/mzscheme/awk.ss b/collects/tests/mzscheme/awk.ss
index 60d11f1..4403a51 100644
--- a/collects/tests/mzscheme/awk.ss
+++ b/collects/tests/mzscheme/awk.ss
@@ -1,7 +1,7 @@
 
 (load-relative "loadtest.ss")
 
-(SECTION 'awk)
+(Section 'awk)
 
 (require (lib "awk.ss"))
 
diff --git a/collects/tests/mzscheme/compat.ss b/collects/tests/mzscheme/compat.ss
index 2d084d3..9b51c30 100644
--- a/collects/tests/mzscheme/compat.ss
+++ b/collects/tests/mzscheme/compat.ss
@@ -2,7 +2,7 @@
 
 (load-relative "loadtest.ss")
 
-(SECTION 'compat)
+(Section 'compat)
 
 (require (lib "compat.ss"))
 
diff --git a/collects/tests/mzscheme/contract-test.ss b/collects/tests/mzscheme/contract-test.ss
index 79433d5..d66c309 100644
--- a/collects/tests/mzscheme/contract-test.ss
+++ b/collects/tests/mzscheme/contract-test.ss
@@ -3,7 +3,7 @@
 	 (lib "class.ss")
          (lib "etc.ss"))
   
-(SECTION 'contract)
+(Section 'contract)
 
 (parameterize ([error-print-width 200])
 (let ()
diff --git a/collects/tests/mzscheme/etc.ss b/collects/tests/mzscheme/etc.ss
index 76af639..2b07572 100644
--- a/collects/tests/mzscheme/etc.ss
+++ b/collects/tests/mzscheme/etc.ss
@@ -1,7 +1,7 @@
 
 (load-relative "loadtest.ss")
 
-(SECTION 'etc)
+(Section 'etc)
 
 (require (lib "etc.ss"))
 
diff --git a/collects/tests/mzscheme/kw.ss b/collects/tests/mzscheme/kw.ss
index 99a94d6..1f2d770 100644
--- a/collects/tests/mzscheme/kw.ss
+++ b/collects/tests/mzscheme/kw.ss
@@ -1,7 +1,7 @@
 
 (load-relative "loadtest.ss")
 
-(SECTION 'kw)
+(Section 'kw)
 
 (require (lib "kw.ss"))
 
diff --git a/collects/tests/mzscheme/macrolib.ss b/collects/tests/mzscheme/macrolib.ss
index 6346646..4af03a6 100644
--- a/collects/tests/mzscheme/macrolib.ss
+++ b/collects/tests/mzscheme/macrolib.ss
@@ -1,7 +1,7 @@
 
 (load-relative "loadtest.ss")
 
-(SECTION 'macrolib)
+(Section 'macrolib)
 
 (require (lib "etc.ss"))
 
diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss
index 129b239..5e95c4a 100644
--- a/collects/tests/mzscheme/pconvert.ss
+++ b/collects/tests/mzscheme/pconvert.ss
@@ -1,7 +1,7 @@
 
 (load-relative "loadtest.ss")
 
-(SECTION 'pconvert)
+(Section 'pconvert)
 
 (require (lib "unit.ss")
          (lib "file.ss")
diff --git a/collects/tests/mzscheme/restart.ss b/collects/tests/mzscheme/restart.ss
index d2eedc2..d6c6d9e 100644
--- a/collects/tests/mzscheme/restart.ss
+++ b/collects/tests/mzscheme/restart.ss
@@ -3,7 +3,7 @@
 
 (require (lib "restart.ss"))
 
-(SECTION 'restart)
+(Section 'restart)
 
 (test #t restart-mzscheme #("ignore-me") values #("-qmv") void)
 (let ([test-in-out 
diff --git a/collects/tests/mzscheme/structlib.ss b/collects/tests/mzscheme/structlib.ss
index f4f7d10..66b7cd5 100644
--- a/collects/tests/mzscheme/structlib.ss
+++ b/collects/tests/mzscheme/structlib.ss
@@ -1,7 +1,7 @@
 
 (load-relative "loadtest.ss")
 
-(SECTION 'structlib)
+(Section 'structlib)
 
 (require (lib "struct.ss"))
 
diff --git a/collects/tests/mzscheme/threadlib.ss b/collects/tests/mzscheme/threadlib.ss
index 055dec4..6c01770 100644
--- a/collects/tests/mzscheme/threadlib.ss
+++ b/collects/tests/mzscheme/threadlib.ss
@@ -1,7 +1,7 @@
 
 (load-relative "loadtest.ss")
 
-(SECTION 'thread)
+(Section 'thread)
 
 (require (lib "thread.ss"))
 
diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss
index 4d90a6b..337e165 100644
--- a/collects/tests/mzscheme/unit.ss
+++ b/collects/tests/mzscheme/unit.ss
@@ -1,7 +1,7 @@
 
 (load-relative "loadtest.ss")
 
-(SECTION 'unit)
+(Section 'unit)
 (require (lib "unit.ss"))
 
 (syntax-test #'(unit))
diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.ss
index bb2fb2f..2de5947 100644
--- a/collects/tests/mzscheme/unitsig.ss
+++ b/collects/tests/mzscheme/unitsig.ss
@@ -5,7 +5,7 @@
 (require (lib "unitsig.ss"))
 (require (lib "include.ss"))
 
-(SECTION 'unit/sig)
+(Section 'unit/sig)
 
 (syntax-test #'(define-signature))
 (syntax-test #'(define-signature))