--- a/keyboard.rc	Fri Feb 20 17:26:44 2004 +0100
+++ b/keyboard.rc	Mon Feb 23 17:22:02 2004 +0100
@@ -277,7 +277,7 @@
 			|ch|
 
 			ch := line at:col.
-			line at:col put:ch asUppercase.
+			line at:col put:ch asLowercase.
 		    ].
 		    self withoutRedrawAt:lineNr put:line.
 		    self invalidateLine:lineNr.
@@ -287,9 +287,9 @@
 	'.
 
 "/
-"/ macro to convert selection to lowercaseFirst words
+"/ macro to convert selection to uppercaseFirst words
 "/
-macros at:#ConvertSelectionToLowercaseFirst put:'
+macros at:#ConvertSelectionToUppercaseFirst put:'
 	"to-lower selected text"
 
 	|line1 line2|
@@ -374,7 +374,7 @@
 			|ch|
 
 			ch := line at:col.
-			line at:col put:ch asLowercase.
+			line at:col put:ch asUppercase.
 		    ].
 		    self withoutRedrawAt:lineNr put:line.
 		    self invalidateLine:lineNr.
@@ -708,8 +708,8 @@
 map bindValue:#UndentBy1 to:#F11.
 
 "/ map bindValue:#ConvertSelectionToLowercase to:#F6.
-map bindValue:#ConvertSelectionToLowercaseFirst to:#F6.
-map bindValue:#ConvertSelectionToUppercase to:#F7.
+map bindValue:#ConvertSelectionToLowercase to:#F6.
+map bindValue:#ConvertSelectionToUppercaseFirst to:#F7.
 
 map bindValue:#CommentSelection to:#F3.
 map bindValue:#UncommentSelection to:#F4.