--- ada-mode.el.orig	2014-02-05 08:45:10.000000000 +0100
+++ ada-mode.el	2014-02-22 11:29:46.000000000 +0100
@@ -977,7 +977,7 @@
 
 	;; else apply Mixed_Case and partial-exceptions
 	(if ada-case-strict
-	    (downcase-region start end))
+	    (upcase-region start end))
 	(while (not done)
 	  (setq next
 		(or