Index: config.tcl
===================================================================
--- config.tcl	(Revision 8754)
+++ config.tcl	(Arbeitskopie)
@@ -513,7 +513,8 @@
 	#saving the plugins
 	::plugins::save_config
 
-	status_log "save_config: saving config for user [::config::getKey login] in $HOME]\n" black
+	status_log "save_config: saving config for user [::config::getKey login] in $HOME\n" black
+	status_log "save_config: HOME2 is set to $HOME2\n" black
 
 	if { [catch {
 		if { [OnUnix] } {
@@ -1227,14 +1228,14 @@
 	set oldhome $HOME
 	set HOME $newHOMEdir
 
-	::config::setKey login $email
 	#load_config
 	::config::configDefaults
+	::config::setKey login $email
 	save_config
 
-	::config::setKey login $oldlogin
-	set HOME $oldhome
-	load_config
+#	::config::setKey login $oldlogin
+#	set HOME $oldhome
+#	load_config
 	unset oldhome
 	unset newHOMEdir
 
Index: smileys.tcl
===================================================================
--- smileys.tcl	(Revision 8754)
+++ smileys.tcl	(Arbeitskopie)
@@ -349,7 +349,7 @@
 				if { [string equal -nocase [$tw get $pos $endpos]  $symbol] == 0} {
 					continue
 				#} else {
-				#	for { set i $pos } {$i <= $endpos && !$skip} {set i [$tw index $i+1c]} {
+				#	for { set i $pos } {$i < $endpos && !$skip} {set i [$tw index $i+1c]} {
 				#		set tags [$tw tag names $i]
 				#		foreach tag_name $tags {
 				#			set elided [$tw tag cget $tag_name -elide]
@@ -1215,7 +1215,7 @@
 			if { [string compare [$tw get $pos $endpos]  $symbol] != 0} {
 				continue
 			} else {
-				for { set i $pos } {$i <= $endpos && !$skip } {set i [$tw index $i+1c]} {
+				for { set i $pos } {$i < $endpos && !$skip } {set i [$tw index $i+1c]} {
 					set tags [$tw tag names $i]
 					foreach tag_name $tags {
 						set elided [$tw tag cget $tag_name -elide]