--- a/keyboardMacros.rc	Wed Oct 07 11:44:31 2009 +0200
+++ b/keyboardMacros.rc	Sat Oct 10 13:36:28 2009 +0200
@@ -402,34 +402,30 @@
 			col2 := (self listAt:lineNr) size.
 		    ].
 		    isAllLower := isAllUpper := isUpperFirst := true.
-		    col1 = col2 ifTrue:[
-			isAllLower := (line at:col1) isLowercase.
-			isAllUpper := isUpperFirst := isAllLower not.
-		    ] ifFalse:[
-			col1 to:col2 do:[:col |
-			    |ch|
+		    col1 to:col2 do:[:col |
+			|ch|
 
-			    ch := line at:col.
-			    ch isUppercase ifTrue:[
-				isAllLower := false.
-				col ~~ col1 ifTrue:[
-				    isUpperFirst := false.
+			ch := line at:col.
+			ch isUppercase ifTrue:[
+			    isAllLower := false.
+			    col ~~ col1 ifTrue:[
+				isUpperFirst := false.
+			    ].
+			] ifFalse:[
+			    ch isLowercase ifTrue:[
+				isUpperFirst := false.
+				isAllUpper := false.
+				col == col1 ifTrue:[
+				    "/ isUpperFirst := false.
 				].
-			    ] ifFalse:[
-				ch isLowercase ifTrue:[
-				    isAllUpper := false.
-				    col == col1 ifTrue:[
-					isUpperFirst := false.
-				    ].
-				]
-			    ].
+			    ]
 			].
 		    ].
 		    makeLowercase := makeUppercase := makeUppercaseFirst := false.
 		    isAllLower ifTrue:[
 			makeUppercase := true.
 		    ] ifFalse:[
-			(isAllUpper and:[col1 ~= col2]) ifTrue:[
+			isAllUpper ifTrue:[
 			    makeUppercaseFirst := true.
 			] ifFalse:[
 			    makeLowercase := true.