Use name of current user as default in kom-change-parenthesis.

src/commands1.el

@@ -1762,7 +1762,12 @@ converted so that the search is case insensitive."
   (interactive)
   (let ((conf-stat (lyskom-read-conf-stat 
 		    (lyskom-get-string 'name-to-be-changed)
-		    '(all) nil nil t)))
+		    '(all)
+                    nil
+                    (cons
+                     (conf-stat->name (blocking-do 'get-conf-stat lyskom-pers-no))
+                     0)
+                    t)))
     (if (null conf-stat)
 	(lyskom-insert-string 'no-such-conf-or-pers)
       (if (string-match "^\\(.*\\)(\\(.*\\))\\(.*\\)$" (conf-stat->name conf-stat))